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.ConfigurarImpresoraFiscal(73,"A")&&Interlineado Alto
objHasar.AbrirComprobante(910)
MESSAGEBOX("NRO EN PROCESO: "+STR(objHasar.Nro_Enproceso))
objHasar.ImprimirTextoGenerico(.f.,.t.,.f.,.f.,"MASTERCARD COMPRA",84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Nro.Com.:03659307 Term.:06000021", 84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Nro.de Lote:001 Nro.de Cupón:0011", 84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Nro.Tarj.: **********121008 ( ) **/**", 84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Tipo Autorización:OFF",84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Nro Autorización:0",84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Imp.Tot..: $154.50", 84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "Nro. de Factura: 15144", 84)
objHasar.ImprimirTextoGenerico(.f.,.f.,.f.,.f., "TARJETA DE PRUEBA POSNET", 84)
objHasar.ImprimirTextoGenerico(.f.,.t.,.f.,.f., "Copia Cliente", 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