[tulio]

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 [-]
    ////hago la impresion fiscal
    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);  ////65=ticket factura A
    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;
   ////////////////////////////////
   ////CIERRE X
    hasar1.Finalizar;
    hasar1.Puerto:=1;
    hasar1.Comenzar;
    hasar1.ReporteX;
   ////////////////////////////////
   ////CIERRE Z
    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 !!!!!!