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()
objHasar.CargarDatosCliente("Cliente 1", "30610400562", 1, 67, "Camino Interfábrica s/n", "", "", "")
objHasar.AbrirComprobante(81)
MESSAGEBOX("NRO EN PROCESO: "+STR(objHasar.Nro_Enproceso))
objHasar.ImprimirTextoFiscal(.f.,.f.,.f.,.f.,"Texto Fiscal",84)
objHasar.ImprimirItem("Producto Uno", 1.0, 25.0,7,21.0,77,36,10.0,84,66,"7791234500001")
objHasar.ImprimirOtrosTributos(7,"Percepcion IIBB ...",0,4.0)
objHasar.ImprimirOtrosTributos(6,"Percepcion IIBB ...",0,2.0)
objHasar.ImprimirPago("Efectivo",25.0,84)
objHasar.CerrarComprobante(1)
MESSAGEBOX("NRO EMITIDO: "+STR(objHasar.Nro_Emitido))
ELSE
MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")
ENDIF
objHasar.Finalizar()
CATCH TO oError
MESSAGEBOX("Error:"+oError.Message)
EndTRY