Imprimir en Zebra TLP 2844

[trex2000]

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]

Empezado por trex2000

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]]

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]

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]]

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]

Ok muchas gracias dejame lo pruebo y comento como me fue.

[ASAPLTDA]

Empezado por trex2000

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