打印一个IMAGE 中的图象？(10分)

在设置为普通纸的时候和设置为照片纸打印的大小不一样？为什么？付原代码！
procedure TForm1.PrintImg;
var
ScaleX, ScaleY: Integer;
R: TRect;
begin
if printdialog1.Execute then
begin
Printer.BeginDoc;
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div
PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div
PixelsPerInch;
//temp := GetDeviceCaps(Handle, logPixelsX);
R := Rect(0, 0, Image2.Picture.Width * ScaleX,
Image2.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image2.Picture.Bitmap);
finally
EndDoc;
end;
end;
end;

这个跟您上面的代码无关，主要是跟原打印机的驱动程序有关。这两个设置本来就应该不一样的

但是为什么我使用ACDSEE打印的大小就一样呢？你可能对打印这方面不太了解。

接受答案了.