用canvas打印图片,怎么就那么大啊？？

[qfyylove]

begin
with printer do
begin
BeginDoc;
canvas.draw(0,0,Image1.Picture.Graphic);
EndDoc;
end;
end;

打出来的图片只有巴掌大一块，怎么打出大的，是不是很麻烦？
新人，请多指教!

[qfyylove]

var
xscale, yscale: Integer;
aRect: TRect;
begin
Printer.BeginDoc;
xscale := GetDeviceCaps(Printer.Handle, LOGPIXELSX) div PixelsPerInch;
yscale := GetDeviceCaps(Printer.Handle, LOGPIXELSY) div PixelsPerInch;
aRect := Rect(0, 0, Image1.Picture.Width * xscale, Image1.Picture.Height * yscale);
Canvas.StretchDraw(aRect, Image1.Picture.Graphic);
Printer.EndDoc;
end;


根据分辨率打印 结果啥都不出来了 我晕 。。。哪里不对？

[qfyylove]

改正了一下 可以按照正常分辨率来打印了 但是。。。。
正常分辨率又太大了。。。。（1300X800） 一张纸打不完

怎么结合纸打合适的啊？ A4的

怎么没人来 ？？？

[qfyylove]

Printer.Canvas.Handle,0,0,
Trunc(Image1.Picture.Width * xscale*0.8) ,
Trunc(Image1.Picture.Height * yscale*0.8) ,
Image1.Picture.Bitmap)

加上这句子可以了 但是位置很偏啊 晕了晕了 怎么设置成居中的？？？？？ 0，0 应该该么？？？？


不能让我自问自答啊 同志们 同情心哪！！

[yyfhz]

正常分辨率又太大了。。。。（1300X800） 一张纸打不完
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
看一下你的默认打印纸张是什么？

[baiduan]

看了一下，会的你都自己说了。
只有关注了，hoho。