![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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! |
![]() |
|
|
![]() |
||||
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 |
![]() |
|