Tamaño del buffer en impresoras de ticket

[dfarias]

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;