Impresora Zebra GC420 con EPL

[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

[Casimiro Notevi]

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