引言: 請問一下 我有個我處理過的Image需要列印 但是卻比印的紙大張 請問一下我要如何去調整 最好是可以自動去縮放到可列印的程度

var
  r: TRect;
begin
  r := Rect(0,0,(printer.Pagewidth),(printer.PageHeight));
  printer.canvas.StretchDraw(r,image1.picture.graphic);
end;

引言:

var
  r: TRect;
begin
  r := Rect(0,0,(printer.Pagewidth),(printer.PageHeight));
  printer.canvas.StretchDraw(r,image1.picture.graphic);
end;