![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() Saludos colegas,
Tengo que lograr generar una etiqueta con codigos de barras en una impresora Zebra GC420, pero no tengo suerte con las pruebas. Entiendo que hubo varios foros tratando temas similares, pero en ninguno hay una solución factible. Primero, este dispositivo se comunica por puerto USB, que es como el viejo Serial, pero tiene asignación dinamica por parte del SO (USB001, USB002,...) con lo cual es dificil determinar en donde está ubicada la impresora. Por ahora, yo trato de ubicarla mediante el "nombre" del dispositivo, haciendo un llamado a la funcion Printer de la unit Printers, ago asi:
Segundo problema, es que a mi me pasan un archivo TXT con toda la instruccion EPL necesaria. Aqui un ejemplo del txt : Código:
I8,A,001 Q508,024 q863 rN S3 D7 ZT JF OD R25,0 f100 N B200,189,0,E30,4,8,130,B,"3836556465461" A99,31,0,4,6,6,N,"Esto es un ejemplo" P1 La rutina de impresión se basa en una rutina ya conocida para enviar comandos RAW (muy utilizado con impresoras para POS) y es la siguiente:
La cosa es que con esto la impresora ni se inmuta... ![]() Alguna sugerencia al formato del archivo; a la forma de enviar la secuencia y/o al código en general?
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#2
|
|||
|
|||
Que versión de Delphi utilizas?, en cualquier versión posterior a Delphi 2009 se recomienda la utilización de variables AnsiString en lugar de string cuando se envia/recibe información a otros dispositivos.
|
#3
|
||||
|
||||
Te envio una unidad que utilizo sin problema, se basa en mandar a imprimir a la "cola de impresion" de la impresora que se seleccione, sin importar si es USB, LPT, etc.
Actualemente me sirve entre otras cosas para un sistema de etiquetado con Zebra y Datamax. Te anexo la unidad y un ejemplo de uso.
__________________
Ya tengo Firma! |
#4
|
||||
|
||||
Esta otra unidad tambien la uso, y es la que actualmente tengo, la anterior por error te la mande, esta es la actualizada.
Basicamente su uso es asi:
__________________
Ya tengo Firma! |
#5
|
||||
|
||||
Juanelo muchas gracias... pero como se utiliza esto? hay que instalarlo?
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#7
|
||||
|
||||
![]() Cita:
Que hago? Pongo el .PAS en el mismo directorio con el resto de los archivos fuente y lo agrego al proyecto ?
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#8
|
||||
|
||||
![]() Nop... sigue sin funcionar.
1-Primero instale el componente. 2-Luego lo puse en el Form junto a un TOpenDialog. 3-Esto me permite abrir (y guardar en una variable TextFile) el archivo de texto que tiene la etiqueta. El formato es script EPL: Código:
I8,A,001 Q508,024 q863 rN S3 D7 ZT JF OD R25,0 f100 N B200,189,0,E30,4,8,130,B,"3836556465461" A99,31,0,4,6,6,N,"Esto es un ejemplo" P1
No imprime nada...nada...nada... ![]()
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#9
|
||||
|
||||
Preguntas:
¿se abre correctamente el dispositivo (impresora)? ¿La impresora a la que madas está correctamente instalada ? ¿si es interfaz usb, está correctamente asignado el puerto en la impresora (lista de impresoras)?
__________________
Ya tengo Firma! |
#10
|
||||
|
||||
![]() Cita:
De hecho, desde el mismo driver de la impresora (Propiedad de la Impresora en entornos Windows), tiene una solapa "Herramientas" con la opción "Enviar fichero", desde el cual cargo y subo el mismo archivo script y lo imprime al instante. Con esto concluyo que tanto la impresora como el archivo script son correctos. He visto que otros colegas mandan todos los comandos concatenados e una sola llamada, cosa que tambien he probado, al estilo:
__________________
Gracias de antemano por vuestra ayuda. ·.:*:.·Yako·.:*:.· |
#11
|
||||
|
||||
Ok, te comento que yo mando todo el archivo de una sola vez.
Uso TStringList, con su metodo LoadFromFile. Usas luego la propiedad TStringList.Text para pasar todo el contenido de una sola vez. Te lo digo de pura memoria, no tengo el codigo a la mano. Saludos
__________________
Ya tengo Firma! |
#12
|
||||
|
||||
![]() Bien amigos, al fin y al cabo lo hemos logrado solucionar entre todos, sobre todo con el "tip" final que indicó el amigo Juanelo respecto a que él lo hace mediante un TSringList...
De aquí que surgió entonces la pregunta: ¿Y que tiene de distinto enviar un TStringList que no tenga una linea obtenida de un archivo de texto? En apariencia nada, pero sí tiene algo distinto... y al parecer es el "retorno de carro/fin de línea" que el comando ReadLn(fTextFile, s); parece quitar. Tambien el hecho de que que de esa forma, Juanelo enviaba el script completo, en vez de enviarlo línea a línea. Asi que la primera aproximación fue cargar el archivo externo en un TMemo y enviarlo con el componente de Juanelo directamente al dispositivo, de la forma: Esto funcionó a la perfección. Después de algunas pruebas más, apareció la solución final que es un procedimiento/función que prescinde de la utilización del componente que tan gentilmente nos ofreció Juanelo, ya que básicamente hace lo mismo y es así:
Como alternativa, para aquellos que como yo, gustan de llevar mayor control sobre cada instrucción, puede generarse la instrucción concatendado cadenas con los comandos EPL apropiados, de esta manera:
Tip final: algo muy importante, es que la dimensión de la etiqueta debe estar muy bien configurada en el driver de la impresora y luego hay que lanzar un comando de auto-calibración para que ajuste bien la separación entre etiquetas (cut position), ya que estas impresoras realizan todo su trabajo en base a estos datos. Esto es todo amigos...! ![]() YAKO Última edición por hgiacobone fecha: 04-08-2014 a las 05:19:59. |
#13
|
||||
|
||||
Excelente!, que bueno que solcuionaste tu problema.
Con respecto a tu funcion, es basicamente lo que hace la unidad. Me parece genial tu implementacion. ![]()
__________________
Ya tengo Firma! |
#14
|
|||
|
|||
Estimado hgiacobone
Creas un archivo txt que contiene los comandos para mandar a imprimir , pero como reemplazas los campos fijos , imagino que utilizas la misma plantilla para imprimir varios productos diferentes ? Gracias por tu aclaracion , aunque paresca tonta la pregunta o no se si me explico bien
__________________
IVAND |
#15
|
||||
|
||||
Cita:
Lo que tienes que hacer es crear un .txt por cada etiqueta distinta que quieras imprimir con sus textos particulares de descripción, precios, etc. e ir enviandolas a la impresora. Saludos
__________________
Be water my friend. |
#16
|
|||
|
|||
Pues yo no lo consigo
Aprovechando que habéis “reabierto” este tema, he intentado el sistema de impresión propuesto pero no he podido hacer funcionar ninguno de los ejemplos presentados en el hilo.
Con algunos de los ejemplos consigo que por el administrador de impresión de mi Zebra aparezcan i desaparezcan rápidamente los trabajos que mando a imprimir, pero la impresora no se inmuta. He seguido el consejo de Newtron y he creado una plantilla de mi etiqueta con el programa ZebraDesigner creando un fichero de texto que se imprime perfectamente si lo envío directamente desde la impresora, pero no me funciona si lo hago con cualquiera de los ejemplos de este hilo. Podría tener algo que ver mi versión de Delphi 10.2CE? Lo digo por el tema del Unicode. Con que versión de Delphi lo estáis utilizando vosotros? Saludos |
#17
|
||||
|
||||
Cita:
Yo uso Delphi 2007 no sé si será ese el problema, te paso algún trozo de código por si te sirve de ayuda:
Saludos
__________________
Be water my friend. |
#19
|
|||
|
|||
Estimados amigos , uso delphi 2009 y el codigo que utilizo para la impresion de documento a una zebra epl no funciona
cabe decir que esta funcionando pefectamente desde el sistema de zebra la impresion he tomado notas de lo que dice el companero pero nada no imprime nada, desde fastreport imprime sin problemas de antemano gracias por su tiempo Envio el proyecto a ver si su tiempo lo permite y revise el código , seguro es algo pequenio , cabe destacar también que en delphi 6 utilizo el mismo codigo y funciona
__________________
IVAND Última edición por IVAND fecha: 04-03-2023 a las 01:24:34. |
#20
|
|||
|
|||
Hola IVAND, y saludos a todos.
A mi tu código tampoco me funciona. Lo que yo estoy utilizando es el componente del amigo Juanelo pero cambiando esta sentencia
por esta otra
en la función
Este cambio lo he realizado a instancias de los comentarios realizados por Newtron donde adjuntaba un ejemplo. También comentar que el texto que yo imprimo lo cargo desde un fichero de texto y que este fichero que cargo está creado directamente con el programa ZebraDesigner. Adjunto uno de estos ficheros por si te sirve de ayuda, al menos, para comparar su formato con o que tu envías. Saludos |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
impresora zebra con windows 7 y delphi | Oscar Guzmán | Impresión | 6 | 24-09-2012 08:46:23 |
Imprimir con Zebra S4M usb | emanuelbarrios | Impresión | 1 | 03-08-2012 10:51:47 |
Alguien sabe como se configura impresora Zebra MZ 320? | mamcx | Varios | 0 | 08-02-2010 18:30:17 |
Cambiar la letra a la impresora zebra lp | boondock13 | Impresión | 1 | 03-10-2007 10:48:43 |
Impresora Zebra TLP-2488 | IVAND | Impresión | 4 | 02-02-2006 02:26:10 |
![]() |
|