Also ich hab den else Zweig wieder rausgenommen da es zu einigen Fehlermeldungen geführt hat.
Delphi-Quellcode:
procedure TForm1.Drucken1Click(Sender: TObject);
begin
if PrintDialog1.execute
then
Bitmap := GetFormImage;
try
Clipboard.Assign(Bitmap);
with Printer do
begin
BeginDoc;
Printer.Canvas.StretchDraw(Rect( 100, 0, PageWidth - 100, (PageHeight div 4)+ 1 div 3 ), Bitmap);
EndDoc;
end;
finally
Bitmap.Free;
end;
end;