Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-11-2012
MikyVato MikyVato is offline
Miembro
 
Registrado: Mar 2005
Posts: 39
Poder: 0
MikyVato Va por buen camino
Question 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??
Responder Con Cita
  #2  
Antiguo 02-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.119
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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 ....
Responder Con Cita
  #3  
Antiguo 05-11-2012
MikyVato MikyVato is offline
Miembro
 
Registrado: Mar 2005
Posts: 39
Poder: 0
MikyVato Va por buen camino
Smile

Gracias por tu tiempo, voy a probar las soluciones que me propones... cuando tenga una solución comparto el código
Responder Con Cita
  #4  
Antiguo 13-11-2012
MikyVato MikyVato is offline
Miembro
 
Registrado: Mar 2005
Posts: 39
Poder: 0
MikyVato Va por buen camino
Thumbs down

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
Las XXXXXX representan los datos que debo remplazar dinamicamente según lo que obtengo de la DB pero no logro enviar esto a la impresora, copio y pego en un block de notas, Ctrl + P y me dice página demasiado pequeña y bla bla bla...

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;
intente hacer un hola mundo utilizando

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!!
Responder Con Cita
  #5  
Antiguo 13-11-2012
MikyVato MikyVato is offline
Miembro
 
Registrado: Mar 2005
Posts: 39
Poder: 0
MikyVato Va por buen camino
Me olvidaba la función y el código los obtuve del siguiente enlace

http://www.clubdelphi.com/foros/showthread.php?t=54626

Gracias!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 17:49:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi