[Cañones]

Ah´i va. Disculpas por la demora.

Código Delphi [-]
procedure TfrmQRArticulos.ver; 
var 
  impresora:TextFile; 
  sProducto, sStock, sPrecio:string; 
begin 
  ibqArticulos.Close; 
  ibqArticulos.Open; 
  // ------------------------------Impresion----------------------------------// 
  try 
    AssignFile(Impresora,'LPT1'); 
    rewrite(Impresora); 
    Writeln(Impresora,#27#64); 
    //--------------- HEADER --------------------------------// 
    WriteLn(Impresora,'Fecha: '+DateTimeToStr(Now)); 
    //------------ BODY -----------------// 
    Writeln(Impresora,#27#33#128'PRODUCTO'#27#33#0+'                     '+ 
       #27#33#128'STOCK'#27#33#0+#27#33#128'  PRECIO'#27#33#0); 
    //------------------------------------------------------------------------// 
    ibqArticulos.First; 
    while not ibqArticulos.Eof do 
      begin 
      sProducto:=ibqArticulos.Fields[0].AsString; 
      sStock:=ibqArticulos.Fields[1].AsString; 
      sPrecio:=FormatFloat('0.00',ibqArticulos.Fields[2].AsFloat); 
      Writeln(Impresora,sProducto+sStock+sPrecio); 
      ibqArticulos.Next; 
      end; 
    //------------ FOOTER----------------// 
    //------------------------ Avance de papel y corte -----------// 
    //------- aca va el corte. Por debajo queda en la siguiente -----------// 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    WriteLn(Impresora,''); 
    Writeln(Impresora,#27#105); //Esto 'CORTA el TICKET' 
  finally 
    CloseFile(Impresora); //cerrar el archivo 
  end; 
end;

Cualquier consulta a disposición.