HASAR SMH P 1120F Impresoras - Fiscales
Es muy sencillo, te aconsejo utilizar el ocx que ellos proveen (OCX v051122).
Ahi mismo te proveen de documentación de dicho ocx.
El siguiente es un breve ejemplo que demuestra en pocas líneas cómo imprimir un ticket:
Hasar1.Puerto = 1
Hasar1.Comenzar
Hasar1.TratarDeCancelarTodo
Hasar1.AbrirComprobanteFiscal TICKET_C
Hasar1.ImprimirItem "Item 1", 10, 1, 21, 0
Hasar1.Subtotal True
Hasar1.ImprimirPago "Efectivo", 100
Hasar1.CerrarComprobanteFiscal
Hasar1.Finalizar
yo utilizo el siguiente formato
TICKET_FACTURA_A=65
TICKET_FACTURA_B=66
FACTURA_A=48
FACTURA_B=49
RECIBO_A=97
RECIBO_B=98
NOTA_DEBITO_A=68
NOTA_DEBITO_B=69
THISFORM.Olecontrol1.Puerto = 1
THISFORM.Olecontrol1.Comenzar
THISFORM.OleControl1.TratarDeCancelarTodo
THISFORM.Olecontrol1.AbrirComprobanteFiscal (TICKET_FACTURA_B)
THISFORM.Olecontrol1.ImprimirItem ("Item 1", 10, 1, 21, 0)
THISFORM.Olecontrol1.Subtotal (.T.)
THISFORM.Olecontrol1.ImprimirPago ("Efectivo", 100)
THISFORM.Olecontrol1.CerrarComprobanteFiscal
THISFORM.Olecontrol1.Finalizar
Quedaria reemplazar en item , pago, ect por campos de tu tabla.