Impresora Zebra GC420 con EPL

[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

[Casimiro Noteví]

No olvides las etiquetas para el código:

[IVAND]

estimados amigos gracias a todos por su tiempo , el problema estaba en las posiciones que se indicaban para imprimir