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;
try
AssignFile(Impresora,'LPT1');
rewrite(Impresora);
Writeln(Impresora,#27#64);
WriteLn(Impresora,'Fecha: '+DateTimeToStr(Now));
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;
WriteLn(Impresora,'');
WriteLn(Impresora,'');
WriteLn(Impresora,'');
WriteLn(Impresora,'');
Writeln(Impresora,#27#105); finally
CloseFile(Impresora); end;
end;
Cualquier consulta a disposición.