5 respuestas en este tema

[Nikolas]

Hola Gente, estoy haciendo una aplicación en Lazarus, la cual debe imprimir en la impresora de referencia, http://www.zebra.com...atasheet-en.pdf

En primera instancia, intente con un reporte y quedo bien pero configurando al tamaño exacto de la etiqueta, me tira un error la impresora (se cuelga con luz roja).

Voy a tomar el otro camino, que es configurar en el lenguaje de la impresora (EPL).
(esto seria armar un txt con los datos necesarios y mandar a imprimir).

delphi

  strHora, strFecha,cadena : string;
  txt: TextFile;
  L,Q1,A,A1,B,C,D,E:String ;
 
Begin
  L:=chr(13)+Chr(10);
   Q1:='q500'+L;
   A1:='A220,10,0,1,1,1,N,"PRODUCTO :"'+'"'+JfEdit1.Value+'"'+L ;
   B:='B220,30,0,E30,2,20,100,B,'+'"'+JfEdit3.Value+'"'+L ;
   C:='A440,50,0,3,1,1,N,"P.V.P"'+L;
   D:='A440,70,0,3,1,1,N,'+'"'+FormatFloat('0.00',JfEdit2.Value)+'"'+L;
   E:='A210,20,1,1,1,1,N,'+'"'+DateToStr(date)+'"'+L;
   AssignFile(Txt, 'LPT1');
   Rewrite(Txt);
 for X:= 1 TO JfEdit4.Value DO
   Writeln(Txt, L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+A+A1+B+C+D+E+'P1');
 
   CloseFile(Txt);
End ;

encontré ese código y a simple vista, tengo que cambiar el tema del puerto.

¿alguien imprimió de esta manera?


gracias! 

[seoane]

Hola Gente, estoy haciendo una aplicación en Lazarus, la cual debe imprimir en la impresora de referencia, http://www.zebra.com...atasheet-en.pdf

¿Y la pregunta es ....?

[jesusrmx]

encontré ese código y a simple vista, tengo que cambiar el tema del puerto.

¿alguien imprimió de esta manera?

En Lazarus TPrinter implementa un modo llamado RawMode, en este modo puedes enviarle comandos a la impresora en su "lenguaje" nativo. Yo lo uso para imprimir etiquetas en una Zebra S600 que usa ZPL II.

En el directorio lazarus/components/printers/samples/rawmode tienes un proyecto de ejemplo de su uso. Con este método no es necesario pensar en términos de puertos, si la impresora ha sido instalada correctamente solo es necesario seleccionarla y debería funcionar incluso si la conexión de la impresora es mediante USB, paralelo, Red, Etc.

[eduarcol]

Aqui un codigo de Seaone que hace exactamente lo que buscas, desconozco si funciona en Lazarus

http://www.delphiacc...-una-impresora/

[Nikolas]

encontré ese código y a simple vista, tengo que cambiar el tema del puerto.

¿alguien imprimió de esta manera?

En Lazarus TPrinter implementa un modo llamado RawMode, en este modo puedes enviarle comandos a la impresora en su "lenguaje" nativo. Yo lo uso para imprimir etiquetas en una Zebra S600 que usa ZPL II.

En el directorio lazarus/components/printers/samples/rawmode tienes un proyecto de ejemplo de su uso. Con este método no es necesario pensar en términos de puertos, si la impresora ha sido instalada correctamente solo es necesario seleccionarla y debería funcionar incluso si la conexión de la impresora es mediante USB, paralelo, Red, Etc.

gracias, lo pruebo y comento.

pd: Eduardo: ya probe el codigo de Soane y no funciono.

[Nikolas]

En Lazarus TPrinter implementa un modo llamado RawMode, en este modo puedes enviarle comandos a la impresora en su "lenguaje" nativo. Yo lo uso para imprimir etiquetas en una Zebra S600 que usa ZPL II.

funciono perfecto! muchas gracias!