Udskrift for lille?

den her bruger jeg selv til udskrivning af image:
procedure TForm5.Udskriv1Click(Sender: TObject);
var
  r:TRect;
begin
with printer do
begin
printdialog1.execute;
BeginDoc;
  r.top:=0;//x
  r.left:=0;//y
  r.Right:=r.top+image1.Picture.Width*300 div 75;
  r.Bottom:=r.left+image1.Picture.Height*300 div 75;
  Canvas.StretchDraw(r,image1.picture.Graphic);
EndDoc;
end;
end;