怎样打印图片啊？(20分)

其大小怎么控制，即是这样控制打印页面？？

printer.canvas.StretchDraw

var

ScaleX, ScaleY: Integer;

R: TRect;


begin

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);

Canvas.StretchDraw(R, Image1.Picture.Graphic); // **

finally

EndDoc; // **

end;

这么麻烦吗？

你可以用QRImage，很方便。[8D]

打印图像的正确方法 ：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=952856

多人接受答案了。