Al finalizar la venta en el tpv al querer sacar las estadisticas de productos vendedido sin son demasiados no sale completo el listado en la impresora. Esto sucede con impresoras de menor calidad que poseen un tamaño de buffer menor. Existe alguna forma de poder gestionar esto desde la aplicacion.
La funcion siguiente es la que utilizo y funciona correctamente en muchas impresoras.
Código Delphi
[-]
var
Archivo: TextFile;
begin
AssignFile(Archivo, '\\pc\impresora');
Rewrite(Archivo);
while not qry.eof do
begin
writeln(Archivo,qry.fieldbyname('Linea').asstring);
qry.netx;
end;
CloseFile(Archivo);
end;