Impresora Zebra GC420 con EPL

[juanelo]

Esta otra unidad tambien la uso, y es la que actualmente tengo, la anterior por error te la mande, esta es la actualizada.
Basicamente su uso es asi:

Código Delphi [-]

procedure Enviar_Etiqueta(s : string);
var
        xPrn: TRawPrint;
        i : integer;
begin
        xPrn := TRawPrint.Create;
        xPrn.DeviceName:= "IMPRESORA"; 
       xPrn.JobName = "ETIQUETA";
// nombre de la impresora. Lo puedes encontrar correctamente en la 
// variable printer. Pulsa f1 buscando printer para mas informacion.
// el URaw no es mas que una simplificacion del uso de printer para texto

         if xPrn.OpenDevice = False then
        raise exception.Create('Error en impresora.');

        xPrn.WriteString(s);
        

        xPrn.CloseDevice;
        xPrn.Free;
end;