PDA

Ver la Versión Completa : Imprimir en Zebra TLP 2844


trex2000
14-09-2012, 21:16:10
Saludos a todos, mi pregunta es como poder imprimir en una impresora zebra tlp2844 desde delphi 7 que esta conectada al puerto usb???

Me podrian ayudar con un pequeño ejemplo?

De antemanos muchas gracias.

ecfisa
15-09-2012, 17:33:50
Saludos a todos, mi pregunta es como poder imprimir en una impresora zebra tlp2844 desde delphi 7 que esta conectada al puerto usb???

Me podrian ayudar con un pequeño ejemplo?

De antemanos muchas gracias.
Hola trex2000.

¿ Y como pensas imprimir ? ¿ Mediante TPrinter o usando un reporter ? si es la última opción ¿ Con cuál ?

Saludos.

newtron
17-09-2012, 09:43:42
Hola.

Como he comentado ya en otros posts, para imprimir en las impresoras zebra se puede crear un fichero de texto con el diseño de la etiqueta y enviarlo directamente a la impresora. Para crear este fichero te puede servir un programa que viene incluido en el software de la impresora que se llama ZebraDesigner que te permite crear la etiqueta de forma visual y luego generar el fichero de texto correspondiente.

Saludos

trex2000
18-09-2012, 18:00:10
Saludos a todos y gracias por tomarse el tiempo para responder, disculpe la demora.

Quiero imprimir haciendo un archivo y enviandolo a la impresora pero al puerto usb me podrian ayudar de como hacer esto?

De antemano muchas gracias.

newtron
18-09-2012, 18:45:17
Hola.

Te monto un pequeño ejemplo (sin probar).


if not OpenPrinter(PChar(NombreImpresora), Handle, nil) then begin
ShowMessage('Error en OpenPrinter : ' + NombreImpresora);
Exit;
end;
with DocInfo1 do begin
pDocName := PChar('Etiqueta ');
pOutputFile := nil;
pDataType := 'RAW';
end;

StartDocPrinter(Handle, 1, @DocInfo1);

StartPagePrinter(Handle);

// Suponemos que hemos abierto el fichero de texto, leido sus lineas
// y que las tenemos en una lista llamada fslLineaImpreso
// También puedes abrir el fichero de texto y mandar el WritePrinter directamente

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

EndPagePrinter(Handle);

EndDocPrinter(Handle);



Saludos

trex2000
18-09-2012, 19:28:40
Ok muchas gracias dejame lo pruebo y comento como me fue.

ASAPLTDA
04-04-2013, 05:41:44
Ok muchas gracias dejame lo pruebo y comento como me fue.

Podrias Indicarnos si te funciono?, quiero imprmir desde windows 7 home premium con una coneccion USB
cuando envio el archivo de texto me imprime el archivo de texto y no convierte el codigo epl