7 replies to this topic

[mmoreno]

  Hola! Quien me pueda ayudar se lo agradezco!
Tengo q integrar una factura con la impresion en la Epson tm-u220, desarrollo en Delphi 6, quien me pueda proporcionar un codigo de ejemplo para este caso gracias!

[cadetill]

Buenas,

Qué necesitas o qué quieres hacer? Imprimirás a través de los drivers de la impresora o directamente a puerto?

[jorgecastro]

Hola Catedill. Al parecer conoces el tema de las impresoras Fiscales. Bueno Tengo el mismo problema que mmoreno. Necesito imprimir tickets, en una impresora fiscal epson. Tengo la  EpsonFPHostControl.Ocx, pero no logro que imprima nada. Algo tan simple como cortar el papel, tampoco lo hace.

Si pudieras darme un ejemplo que funcione te lo agradeceria.

Saludos.

Jorge c.

[cadetill]

Buenas,

No conozco nada de fiscalidad, pero sí conozco las impresoras Epson TM-U950 ya que son las que usamos en la empresa para la que trabajo para imprimir tickets de venta, y al ser Epson quizás usen los mismos códigos de escape, sería cuestión de probar. Nosotros imprimimos directamente en el puerto, sin usar los drivers de la impresora. Para ello creamos una impresora genérica sólo texto y la usamos de vía para imprimir en el puerto.

Adjunto unit que usamos para controlar la impresora (si hay algún código de escape que no funciona deberías consultar el manual de la misma)

Un ejemplo de cómo imprimir algo

delphi

  if OpenDialog.Execute then
    StartPrint( 'NombreImpresora', 'Texto que aparece en el controlador de impresión', 'c:\Ticket.txt', 1)
  else
    StartPrint( 'NombreImpresora', 'Texto que aparece en el controlador de impresión', '', 1);
 
  IniciaImpresora;
 
  PrtLinea('Texto %s con una variable', [ValorVariable]);
 
  CortarPapel;
 
  EndPrint;

[jorgecastro]

Gracias por la respuesta cadetill.
Pero no es lo que busco. Tengo tambien impresoras de tickets no fiscales funcionando. Y como tu mencionas el proceso de impresion es muy sencillo. Pero no es lo mismo para las impresoras Fiscales. Cada modulo fiscal tiene su propio protocolo de comunicacion con la aplicacion. La impresora fiscal trae incorporado un dispositivo o tarjeta fiscal, con su propio interpretador de comandos. Entonces si la secuencia de datos no corresponde al formato solicitado por la impresora, esta no hace nada. Cada impresora fiscal IMB, EPSON, NCR..etc. trae su propio lenguaje de comunicacion.

Bueno. Gracias de todas formas.

Saludos.

Jorge C.

[Marc]

Hola.

Aquí puedes encontrar un componente nativo Delphi para trabajar con una buena selección de impresoras fiscales (las Epson incluidas).

http://ar.groups.yah.../delphi-fiscal/

Yo intenté trabajar directamente con las Hasar, pero tuve que acabar renunciando y usar este componente. El autor es muy amable y da soporte al componente en ese grupo de Yahoo.

Saludos.

[jorgecastro]

Ok.

Gacias marc. lo revisare y te comento.

Saludos.

Jorge C.

[mmoreno]

Hola, Gracias por Responder... Ya he logrado tener comunicacion con la impresora desde delphi 6 pero aun tengo problemas con los codigos hexadecimal que deben enviarse, al momento que llega al envio de comando me arroja como resultado 0 en vez de uno por lo que no avanza de alli

Por ejemplo (parte del codigo)

sAux = Chr$(&H5) & Chr$(&H7)
    AddField sAux
   
    sAux = Chr$(&H0) & Chr$(&H0)
    AddField sAux
   
    Call SendCommand

donde el SendCommand llama a las funciones de la DLL de Epson pero queda en la linea, al tratar de obtener el resultado de los hexadecimales del comando...  lState = GetCommunicationState()