Try
objHasar = CREATEOBJECT("ImpresoraFiscal2g.Impresora")
objHasar.CodigoActivacion=RTRIM(THISFORM.TXTcodigo.Value)
objHasar.IP = RTRIM(thisform.txtIP.value)
objHasar.Puerto=RTRIM(thisform.txtPuerto.Value)
objHasar.Comenzar()
IF !objHasar.ImpresoraOcupada()
*Para agregar
objHasar.ConfigurarZona(.f.,.t.,.t.,.t.,"ZONA 1 ENCABEZADO LINEA 1",68,72,1)
objHasar.ConfigurarZona(.f.,.f.,.f.,.f.,"ZONA 1 ENCABEZADO LINEA 2",68,72,2)
*Para eliminar primer parametro en .t.
*!* objHasar.ConfigurarZona(.t.,.t.,.t.,.t.,"ZONA 1 ENCABEZADO LINEA 1",68,72,1)
*!* objHasar.ConfigurarZona(.t.,.f.,.f.,.f.,"ZONA 1 ENCABEZADO LINEA 2",68,72,2)
ELSE
MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")
ENDIF
objHasar.Finalizar()
CATCH TO oError
MESSAGEBOX("Error:"+oError.Message)
EndTRY