Das Problem lag wie ich gedacht habe, an die Methode, wie ich das Bild in Printpreview Form lade
Nun verwende ich die Printpreview Funktion :
Delphi-Quellcode:
procedure TForm2.DrawImageOnlyPage;
var
PR: TRect;
begin
with PrintPreview do
begin
PR := PageBoundsAfterMargin;
...
PaintGraphicEx(PR, Form1.Image1.Picture.Graphic, True, False, True);
end;
end;
Dann erscheint keine Fehlermeldung