Sergiov
22-11-2007, 14:19:51
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.
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
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.
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