A4 auf Printpreview anlegen

[thomas2009]

Hi

ich möchte eine leere Bitmap 210 mm x 297 mm komplett auf Printpreview legen

Delphi-Quellcode:

procedure TMainForm.DrawImageOnlyPage;
var
  PR: TRect;
begin
  with PrintPreview do
  begin
    PR := PageBoundsAfterMargin;
    with PointFrom(mmLoMetric, 50, 50) do { 0.5 cm additional margin }
      InflateRect(PR, -X, -Y);
    PaintGraphicEx(PR, Image1.Picture.Graphic, True, False, True);
  end;
end;

Die A4 Format möchte ich von dem Punkt 0,0 zu dem Punkt Printpreview.Right, Printpreview.Bottom legen