Impresora Térmica GK420t

[MikyVato]

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??

[ecfisa]

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.

[MikyVato]

Gracias por tu tiempo, voy a probar las soluciones que me propones... cuando tenga una solución comparto el código

[MikyVato]

La verdad no se como seguir, tengo el siguiente código que en teoría es ZPL:

^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

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

WriteRawDataToPrinter('Mi impresora','Hola mundo');

pero ni la tos, la muy desvergonzada se me ríe en la cara... Alguna OPCIÓN?? AYUDA!! HELP!!

[MikyVato]

Me olvidaba la función y el código los obtuve del siguiente enlace

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

Gracias!