打印图像的实际尺寸

嗨，朋友们，我想打印我生成的图片，我使用以下代码

  Printer.BeginDoc;
  Printer.Canvas.Draw(0,0,img1.Picture.Bitmap);
  Printer.EndDoc;

它可以工作，但它打印的图像非常小，我如何打印屏幕上显示的图像的实际尺寸？

非常感谢。

您可以致电Canvas.StretchDraw()反而。然而，请做好心理准备，结果可能不太令人印象深刻。尝试以这种方式缩放光栅图像将导致非常块状的结果。您需要矢量图像才能缩放到打印机分辨率。

var
  Scale: Integer;
...
Scale := Min(
  Printer.PageWidth div Bitmap.Width,
  Printer.PageHeight div Bitmap.Height
);
Printer.Canvas.StretchDraw(
  Rect(0, 0, Bitmap.Width*Scale, Bitmap.Height*Scale), 
  Bitmap
);

我在这里选择的缩放将保留纵横比并使图像在打印时尽可能大。