Impresora Zebra GC420 con EPL

[hgiacobone]

Juanelo muchas gracias... pero como se utiliza esto? hay que instalarlo?

[juanelo]

Si, instalas la unidad y luego le haces referencia con USES

[hgiacobone]

Empezado por juanelo

Si, instalas la unidad y luego le haces referencia con USES

Disculpame pero soy medio lerdo con esto....
Que hago?
Pongo el .PAS en el mismo directorio con el resto de los archivos fuente y lo agrego al proyecto ?

[hgiacobone]

Nop... sigue sin funcionar.
1-Primero instale el componente.
2-Luego lo puse en el Form junto a un TOpenDialog.
3-Esto me permite abrir (y guardar en una variable TextFile) el archivo de texto que tiene la etiqueta. El formato es script EPL:

I8,A,001
Q508,024
q863
rN
S3
D7
ZT
JF
OD
R25,0
f100
N
B200,189,0,E30,4,8,130,B,"3836556465461"
A99,31,0,4,6,6,N,"Esto es un ejemplo"
P1

4-Leo y recojo cada linea y las envio a la impresora (mediante el componente):

Código Delphi [-]
procedure Enviar_Etiqueta(s : string);
begin
        with  RawPrint1 do 
        begin 
            DeviceName:= "IMPRESORA";  // nombre de la impresora que se obtiene de la variable Printer.-
            JobName = "ETIQUETA";
            Try
                if OpenDevice = False then
                  raise exception.Create('Error en impresora.')
                  else begin 
                      AssignFile(fTextFile, OpenDialog1.FileName );
                      Reset(fTextFile);
                      try
                        While Not Eof(fTextFile) do
                        begin
                           ReadLn(fTextFile, s);                
                           RawPrint1.WriteString(s);  //enviar comando
                        end;
                      finally
                          CloseFile(fTextFile);
                      end;
                  end;
            Finally
               CloseDevice;
            End;
        end;
end;

No imprime nada...nada...nada...

[juanelo]

Preguntas:
¿se abre correctamente el dispositivo (impresora)?
¿La impresora a la que madas está correctamente instalada ?
¿si es interfaz usb, está correctamente asignado el puerto en la impresora (lista de impresoras)?

[hgiacobone]

Empezado por juanelo

Preguntas:
¿se abre correctamente el dispositivo (impresora)?
¿La impresora a la que madas está correctamente instalada ?
¿si es interfaz usb, está correctamente asignado el puerto en la impresora (lista de impresoras)?

Si a todo... ;-)
De hecho, desde el mismo driver de la impresora (Propiedad de la Impresora en entornos Windows), tiene una solapa "Herramientas" con la opción "Enviar fichero", desde el cual cargo y subo el mismo archivo script y lo imprime al instante.

Con esto concluyo que tanto la impresora como el archivo script son correctos.

He visto que otros colegas mandan todos los comandos concatenados e una sola llamada, cosa que tambien he probado, al estilo:

Código Delphi [-]
Procedure Imprimir_Etiqueta;
var
  L,Q1,A,A1,B,C,D,E:String ;
begin
        with  RawPrint1 do 
        begin 
            DeviceName:= "IMPRESORA";  // nombre de la impresora que se obtiene de la variable Printer.-
            JobName = "ETIQUETA";
            Try
              L:=chr(13)+Chr(10);
              Q1:='q500'+L;
              A1:='A220,10,0,1,1,1,N,"ESTO ES UN TEXTO"+L ;
              B:='B220,30,0,E30,2,20,100,B,'+'"ABC1234"'+L ;
              C:='A440,50,0,3,1,1,N,"Leyenda"'+L;
              D:='A440,70,0,3,1,1,N,'+'"'+FormatFloat('0.00', Precio.Value)+'"'+L;
              E:='A210,20,1,1,1,1,N,'+'"'+DateToStr(date)+'"'+L;

                RawPrint1.WriteString(L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+A+A1+B+C+D+E+'P1');
           
            Finally
               CloseDevice;
            End;
        end;
End ;

[juanelo]

Ok, te comento que yo mando todo el archivo de una sola vez.
Uso TStringList, con su metodo LoadFromFile. Usas luego la propiedad TStringList.Text para pasar todo el contenido de una sola vez. Te lo digo de pura memoria, no tengo el codigo a la mano.
Saludos