FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Impresora Térmica GK420t
Hola, he buscado por todos lados un ejemplo de como imprimir en la impresora Zebra GK420t pero NO, siempre ha fallado, se que debo armar un archivo txt y mandarlo directo a la impresora (¿es así?) bueno el archivo ya esta listo, ahora como lo envío? alguna ayuda por favor??
|
#2
|
||||
|
||||
Hola MikyVato.
Por lo que he estado leyendo, las impresoras Zebra tienen comandos que no son compatibles con ESC/P2. Los comandos propios de esta impresora los tenes aquí: Guía del usuario Zebra GK420t, busca por: Comandos ZPL. (pags. 107 ~ 112). El el primer enlace aconsejan crear un archivo de texto con la configuración y luego enviarlo, pero supongo que también debería funcionar enviando los datos directamente a la impresora. Si deseas hacerlo de este modo, revisa si te sirve este enlace Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Gracias por tu tiempo, voy a probar las soluciones que me propones... cuando tenga una solución comparto el código
|
#4
|
|||
|
|||
La verdad no se como seguir, tengo el siguiente código que en teoría es ZPL:
Código:
^XA ^FO^60,60^BKN,N,100,Y,A,A^MD27.9~SD27.9^FD1234587^FS ^FO^10,170^A0,22,20^MD27.9~SD26^FD XXXXX ^FS ^FO^10,190^A0,22,20^MD27.9~SD26^FD XXXXX ^FS ^FO^10,190^A0,22,20^MD27.9~SD26^FD XXXXX ^FS ^JUS ^XZ utilice la siguiente función Código:
function WriteRawDataToPrinter(PrinterName: String; Str: String): Boolean; var PrinterHandle: THandle; DocInfo: TDocInfo1; i: Integer; B: Byte; Escritos: DWORD; begin Result:= FALSE; if OpenPrinter(PChar(PrinterName), PrinterHandle, nil) then try FillChar(DocInfo,Sizeof(DocInfo),#0); with DocInfo do begin pDocName:= PChar('Printer Test'); pOutputFile:= nil; pDataType:= 'RAW'; end; if StartDocPrinter(PrinterHandle, 1, @DocInfo) <> 0 then try if StartPagePrinter(PrinterHandle) then try while Length(Str) > 0 do begin if Copy(Str, 1, 1) = '\' then begin if Uppercase(Copy(Str, 2, 1)) = 'X' then Str[2]:= '$'; if not TryStrToInt(Copy(Str, 2, 3),i) then Exit; B:= Byte(i); Delete(Str, 1, 3); end else B:= Byte(Str[1]); Delete(Str,1,1); WritePrinter(PrinterHandle, @B, 1, Escritos); end; Result:= TRUE; finally EndPagePrinter(PrinterHandle); end; finally EndDocPrinter(PrinterHandle); end; finally ClosePrinter(PrinterHandle); end; end; Código:
WriteRawDataToPrinter('Mi impresora','Hola mundo'); pero ni la tos, la muy desvergonzada se me ríe en la cara... Alguna OPCIÓN?? AYUDA!! HELP!! |
#5
|
|||
|
|||
Me olvidaba la función y el código los obtuve del siguiente enlace
http://www.clubdelphi.com/foros/showthread.php?t=54626 Gracias! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Impresion deforme en impresora termica | darkerbyte | Impresión | 9 | 11-09-2013 10:38:34 |
Impresion de comprobantes en impresora termica | hmoner | Impresión | 2 | 17-03-2010 17:58:53 |
Impresión impresora térmica | Cañones | Impresión | 6 | 08-10-2008 21:38:20 |
Impresora termica KUBE | camino | Impresión | 1 | 19-03-2008 18:20:00 |
Impresora Fiscal BMC-Camel térmica | sitrico | Impresión | 0 | 16-08-2007 00:13:36 |
|