Hola ingmichel.
Te pongo un ejemplo de muestra:
Código Delphi
[-]
...
implementation
uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
const
V: array[1..5] of Double = (1234.24, 315.12, 1245.82, 1.33, 12130.15);
MARGEN = 300;
var
i,x,y: Integer;
begin
with TPrinter.Create do
try
x:= Printer.PageWidth div 15;
y:= Printer.PageHeight div 50;
BeginDoc;
for i:= 1 to 5 do
Canvas.TextOut(MARGEN+x-Canvas.TextWidth(FormatFloat('#,##.00', V[i])), i*y, FormatFloat('#,##.00', V[i]));
finally
EndDoc;
Free;
end;
end;
Saludos.