Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Imprimir en Zebra TLP 2844 (https://www.clubdelphi.com/foros/showthread.php?t=80280)

trex2000 14-09-2012 21:16:10

Imprimir en Zebra TLP 2844
 
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

Cita:

Empezado por trex2000 (Mensaje 443151)
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).

Código Delphi [-]
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

Prueba Impresion TLP2844
 
Cita:

Empezado por trex2000 (Mensaje 443453)
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


La franja horaria es GMT +2. Ahora son las 17:08:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi