Impresion Canvas

[ecfisa]

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.