有关打印的问题--请高人指点(100分)

[?]如何使得：电脑中的图片打印出来后，与它在打印纸中的大小完全相同。请写出脚本。

继续揣摩你的问题的意思.... ；（

说清楚些

还在揣摩你的问题的意思中....

關注，提前。

procedure TForm1.Button1Click(Sender: TObject);
var
ScaleX, ScaleY: Integer;
R: TRect;

begin

Printer.begin
Doc;
// **
with Printerdo

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;

end;

bubble 不行呀，老兄。你还没明白我的意思。

用尺子把电脑中的图片大小量出来，如（height1,width1）,在把图片打印出来。
打印后的图片大小为（height2，width2），目的是使得：height1=heigh2，
width1=width2，就这样了。