高分急用！！各位多帮忙

[yaotiebing]

Set picture.Picture = picture.Image
Printer.Width = picture.Width
Printer.Height = picture.Height
Printer.PaintPicture picture.Picture, 1, 1
Printer.EndDoc
我的picture图片比较大，请问如何让图片自动改变大小适合a4纸，全部打印出来，上面的程序只能打出一部分

[softrain]

printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Picture.Width, Picture1.Picture.Height, 10, 10, 400, 500
最后四个参数代表变换后的图片，你设置为打印的大小和位置。

[shawls]

up

[softrain]

不好意思，写反了。
printer.PaintPicture Picture1.Picture, x, y, w, h, 0, 0, Picture1.Picture.Width, Picture1.Picture.Height
x,y,w,h 为要打印的区域和坐标。

[handsomge]

使用Printer.Zoom

[螺丝刀2000]

uP

[yaotiebing]

123