Impresoras de tickets de venta

[Sergiov]

Buenas compañeros de sufrimientos,

hasta ahora utilizaba el codigo de mas abajo para imprimir en las tipicas impresoras de tickets. Pero ahora ademas me piden que imprima codigos de barras en el mismo ticket asi como una imagen con el logo.

Ademas antes tenia otro problema cuando el ticket era muy largo las lineas empezaban a desplazarse y se perdian las columnas, esto lo he solucionado hasta ahora metiendo un sleep (entre 150 y 500 dependiendo si es termica o matricial) entre cada writeln. Hay alguna forma de no tener que hacer esto y se aproveche la maxima velocidad de impresion de la impresora ya sea matricial o termica.

A ver si alguno de vosotros puede decirme como hacer esto.

Saludos.

Código Delphi [-]
 
try
   AssignFile(Txt,cmdPuertos.asvalue);
   Rewrite(Txt);
   WriteLn(Txt,#27#64);
   WriteLn(Txt,#27#33#177'PRUEBA DE IMPRESION'+#27#33#1);
   WriteLn(Txt,'');
   WriteLn(Txt,'FECHA: '+FormatDateTime('DD/MM/YYYY',Now));
   WriteLn(Txt,'');
   WriteLn(Txt,'REFERENCIA/DESCRIPCION          CANT.   ');
   WriteLn(Txt,'----------------------------------------');
   WriteLn(Txt,'ARTICULO PRUEBA 1                  2    ');
   WriteLn(Txt,'ARTICULO PRUEBA 3                  9    ');
   WriteLn(Txt,'ARTICULO PRUEBA 5                 10    ');
   WriteLn(Txt,'                                -----   ');
   WriteLn(Txt,'TOTAL ARTICULOS                   21    ');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,'');
   WriteLn(Txt,#27#105);// Cortar
finally
   CloseFile(txt);
end

[[poliburro]]

Pues fijate que yo uso quick report con las impresoras de ticket y me va bastante bien, prácticamente no necesito hacer cambio si es matricial o térmica. Al usar quick report, es posible imprimir imágenes y códigos de barras.

Suerte.

[Sergiov]

Y que utilizas los drivers de windows de cada impresora?
Tienes que algun problema para abrir el cajon?
Como se le dice Al Qreport que el papel es de rollo?

Gracias.

[[poliburro]]

utilizo los drivers de la impresora y al establecer en quick report el tamaño de papel a default, automáticamente se define si es papel rollo. Esto último es de gran ayuda cuando la impresora incluye la función de cortar el ticket.

y nop, no tengo ningún problema para abrir el cajón.

suerte

[Sergiov]

Muchas gracias por responder,

realizare pruebas y cuando tenga una conclusion las pondre por aqui.

Saludos.

[[BlueSteel]]

Empezado por poliburro

utilizo los drivers de la impresora y al establecer en quick report el tamaño de papel a default, automáticamente se define si es papel rollo. Esto último es de gran ayuda cuando la impresora incluye la función de cortar el ticket.

y nop, no tengo ningún problema para abrir el cajón.

suerte

Hola Poliburro...

estaba buscando info de como le decias al QReport que el papel puede tener un largo X (al ser de rollo).. (o depende de si la impresora la tienes configurada...).. esto lo pregunto por que estoy haciendo la impresion así sin tener la impresora todavia....

defini el papel como defaul ... pero igual le di tamaño de 80 x 170 aprox...

[luchifer]

Tengo el problema que requiero imprimir en 1/2 pagina y no se como hacerlo.
ya defini el tamaño de papel en el windows XP, en pantalla sale todo bien pero el momento de la impresión no me respeta el corte a la 1/2 pagina.

Si pudieras guiarme te quedaria muy agradecido.

Gracias