Jump to content


Photo

Imprimir en impresora Zebra® GC420™

Started by Nikolas , Aug 05 2013 12:50 PM

  • Please log in to reply
5 replies to this topic

#1 Nikolas

Nikolas

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 604 posts
  • LocationMar del Plata / Bs As / Argentina

Posted 05 August 2013 - 12:50 PM

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
  1.   strHora, strFecha,cadena : string;
  2.   txt: TextFile;
  3.   L,Q1,A,A1,B,C,D,E:String ;
  4.  
  5. Begin
  6.   L:=chr(13)+Chr(10);
  7.    Q1:='q500'+L;
  8.    A1:='A220,10,0,1,1,1,N,"PRODUCTO :"'+'"'+JfEdit1.Value+'"'+L ;
  9.    B:='B220,30,0,E30,2,20,100,B,'+'"'+JfEdit3.Value+'"'+L ;
  10.    C:='A440,50,0,3,1,1,N,"P.V.P"'+L;
  11.    D:='A440,70,0,3,1,1,N,'+'"'+FormatFloat('0.00',JfEdit2.Value)+'"'+L;
  12.    E:='A210,20,1,1,1,1,N,'+'"'+DateToStr(date)+'"'+L;
  13.    AssignFile(Txt, 'LPT1');
  14.    Rewrite(Txt);
  15.  for X:= 1 TO JfEdit4.Value DO
  16.    Writeln(Txt, L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+A+A1+B+C+D+E+'P1');
  17.  
  18.    CloseFile(Txt);
  19. End ;



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

¿alguien imprimió de esta manera?


gracias! 

  • 0

#2 seoane

seoane

    Advanced Member

  • Administrador
  • 1259 posts
  • LocationEspaña

Posted 05 August 2013 - 12:59 PM


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 ....?
  • 0

#3 jesusrmx

jesusrmx

    Newbie

  • Miembros
  • Pip
  • 1 posts

Posted 10 August 2013 - 10:39 AM


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.
  • 0

#4 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 10 August 2013 - 02:36 PM

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

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

#5 Nikolas

Nikolas

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 604 posts
  • LocationMar del Plata / Bs As / Argentina

Posted 11 August 2013 - 08:57 PM



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.
  • 0

#6 Nikolas

Nikolas

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 604 posts
  • LocationMar del Plata / Bs As / Argentina

Posted 28 August 2013 - 06:35 AM

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!  (y)


  • 0
Back to Lazarus / FreePascal


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → Lazarus / FreePascal
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.