Te copio un ejemplo muy crudo, pero que funciona. Tengo la impresora conectada a puerto ethernet, como verás en Conectar.
Cualquier duda consultame. El código muestra mensajes con: subtotal, numero de comprobante generado, fecha.
*test hasar
THISFORM.Hasar2g.Conectar('192.168.1.8', , 15000, 15000)
*imprimir fact a
THISFORM.Hasar2g.CargarDatosCliente("Cliente", "20185814409", 73, 67, "Calle Uno Nro. 1234", , , )
*Tique Factura A
THISFORM.Hasar2g.AbrirDocumento(81)
THISFORM.Hasar2g.ImprimirItem("Producto uno", 1, 1928.20, 7, 21.0, 77, 37, 0.0, 48, 66, 1, "", " ", 7)
THISFORM.Hasar2g.ImprimirItem("Producto dos", 1, 1254.08, 7, 21.0, 77, 37, 0.0, 48, 66, 1, "", " ", 7)
THISFORM.Hasar2g.ConsultarSubtotal()
lnSub = THISFORM.Hasar2g.ObtenerCampoRespuesta("Subtotal")
=MESSAGEBOX(lnSub)
THISFORM.Hasar2g.CerrarDocumento()
nCbte = THISFORM.Hasar2g.ObtenerCampoRespuesta("NumeroComprobante")
=MESSAGEBOX(nCbte)
THISFORM.Hasar2g.ConsultarFechaHora()
ldFecha = THISFORM.Hasar2g.ObtenerCampoRespuesta("Fecha")
=MESSAGEBOX(ldFecha)
=MESSAGEBOX("listo!")