Canvas als PDF speichern oder ausdrucken

[Sir Rufo]

Vielleicht so?

Delphi-Quellcode:

procedure PrintOnCanvas(ACanvas: TCanvas);
begin
  ACanvas.TextOut( 300, 700, 'Dies ist ein Test-Text');
end;

procedure PrintPdf;
begin
  PrintOnCanvas( lPdf.Canvas );
end;

procedure PrintOnPrinter;
begin
  PrintOnCanvas( Printer.Canvas );
end;