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