[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