Impresora Zebra GC420 con EPL

[[newtron]]

Empezado por IVAND

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

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

[manelb]

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

[[newtron]]

Empezado por manelb

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

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:

Código Delphi [-]
var
  DocInfo1: TDocInfo1;
  Handle:   THandle;
  N:        DWORD;
  Linea:    String;
....

Código Delphi [-]
    with DocInfo1 do begin
      pDocName    := PChar('Etiqueta ' + fsTablaPosicionamiento + '.');
      pOutputFile := nil;
      pDataType   := 'RAW';
    end;

    for g:=1 to fiCopias do begin
    //
      StartDocPrinter(Handle, 1, @DocInfo1);

      StartPagePrinter(Handle);

      for f:=0 to fslLineaImpreso.Count-1 do begin
        Linea := fslLineaImpreso[f] + #10 + #13;
        WritePrinter(Handle, PChar(Utf8Encode(AnsiString(Linea))), Length(Linea), N);
      end;

      EndPagePrinter(Handle);

      EndDocPrinter(Handle);
    //
    end; // for g:=1 to fiCopias do begin

    ClosePrinter(Handle);

Saludos

[manelb]

Gracias Newtron...

parece que con esta sentencia lo he solucionado

Código Delphi [-]
    WritePrinter(Handle, PChar(Utf8Encode(AnsiString(Linea))), Length(Linea), N);

Saludos todos...

[IVAND]

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

[manelb]

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

Código Delphi [-]
if not WritePrinter(hPrinter, PChar(Text), Length(Text), WrittenChars) then begin

por esta otra

Código Delphi [-]
if not WritePrinter(hPrinter, PChar(Utf8Encode(AnsiString(Text))),Length(Text), WrittenChars) then begin

en la función

Código Delphi [-]
function TRawPrint.WriteString(Text: String): Boolean;

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

[IVAND]

gracias por responder companero , pero es la misma linea que utilizo para enviar la cadena , pienso que tiene algo que ver la version de delphi 2009 ,

no he conseguido mandar a imprimir , si puedes enviar un pequeno ejemplo te lo agradeceria aunq sea leyendo de un archivo de texto

en espera de tus comentarios quedo agradecido

[IVAND]

procedure TForm1.btn2Click(Sender: TObject);
var
ivan:TStringList;
Txt:AnsiString ;
begin
ivan:=TStringList.Create;
ivan.LoadFromFile('C:\Users\Master\Downloads\Ejemplo\r1.txt');
txt:=ivan.Text;
Write_RAW_StringToPrinter(txt,'ZDesigner GC420t (EPL)');
end;



ahi si funciono pero leyendo desde un txt

voy a seguir probando gracias a todos por su interes en ayudar