Hallo,
vielen Dank für die vielen Anregungen.
Die Lösung - Teil 1: TPdfDocumentGDI.VCLCanvas
Wenn ich nun lPdf:TPdfDocumentGDI setze/definiere,
und lPdf mit TPdfDocumentGDI.Create erzeuge,
gibt es mit lPDF.VCLCanvas ein Konstrukt, welches TCanvas ist.
Somit kann ich nun die gleichen Sachen machen mit lPDF.VCLCanvas und Printer.Canvas.
So kann man dann in etwas anderer Form
Code:
procedure PrintOnCanvas(ACanvas: TCanvas);
begin
ACanvas.TextOut( 300, 700, 'Dies ist ein Test-Text');
end;
procedure PrintPdf;
begin
PrintOnCanvas( lPdf.VCLCanvas );
end;
procedure PrintOnPrinter;
begin
PrintOnCanvas( Printer.Canvas );
end;
benutzen.
Nun stehe ich aber vor dem nächsten Problem.
PageBreak / NewPage oder wie es auch heißt ist nicht Methode von einem Canvas.
Lösung hier: derzeit noch offen.
Gruß
Daniel