Buen dia Gente
Les cuento que en Argentina uso los impresores Hasar con sus ocx y anda perfecto con las siguientes lineas de programacion
Código Delphi
[-] hasar1.Finalizar;
hasar1.Puerto:=1;
hasar1.Modelo:=2;
hasar1.Comenzar;
hasar1.TratarDeCancelarTodo;
fs:=chr(28);
hasar1.PrecioBase:=true;
Comando:='b'+FS+nombre+FS+numdoc+FS+'I'+FS+'C'+FS+Domi;
hasar1.Enviar(comando);
hasar1.AbrirComprobanteFiscal(65); while not tablas.t_Items_faC.Eof do
begin
descri:=trim(tablas.t_Items_faCDESCR_ARti.AsString);
cant:=tablas.t_Items_faCCANTIDAD.Asfloat;
monto:=importe ;
iva:=21;
impint:=0;
hasar1.ImprimirItem(descri,cant,monto,iva,impint);
tablas.t_Items_faC.next;
End;
imprime:=true;
hasar1.Subtotal(imprime);
If PAGO='EFECTIVO' then
hasar1.ImprimirPago('Contado',neto)
else
hasar1.ImprimirPago('Cuenta Corriente',neto);
hasar1.CerrarComprobanteFiscal;
hasar1.Finalizar;
hasar1.Finalizar;
hasar1.Puerto:=1;
hasar1.Comenzar;
hasar1.ReporteX;
hasar1.Finalizar;
hasar1.Puerto:=1;
hasar1.Comenzar;
hasar1.ReporteZ;
Quisiera que alguien que haya usado los metodos de Epson, si me puede enviar el ejemplo de lo que hago arriba pero con los nombres de comando de los OCX de Epson, y si alguien los tiene si me los puede enviar porque no los podia bajar de la pagina de Epson.
saludos !!!!!!