Печать на принтер картинки (по ширине бумаги) - Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
Ratio: Extended;
if not PrintDialog1.Execute
then Exit;

Printer.BeginDoc;
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX, Image1.Picture.Height * ScaleY);

// Масштабирование картинки под размеры страницы принтера!!
if R.Right + 1 > PageWidth
Ratio:= (R.Right + 1) / PageWidth;
R.Right:= PageWidth;
R.Bottom:= Round(R.Bottom / Ratio);
if R.Bottom + 1 > PageHeight
Ratio:= (R.Bottom + 1) / PageHeight;
R.Bottom:= PageHeight;
R.Right:= Round(R.Right / Ratio);
end;

Canvas.StretchDraw(R, Image1.Picture.Graphic);
finally
EndDoc;
end;
end;