vb6打印图片如何使图片自适应大小

Printer.PaintPicture Image1.Picture, 0, 0
   

    我用上面这个打印命令打印图片,像素不超过A4纸大小的图片就能完整打印,如果像素再大点的图片,就只能打印出左上角那部分,其他就没了。就想问一下有没有什么办法能让它自动适应缩放之类的,那个image控件的stretch属性我已经设置为true了,也没用。希望有大神解答一下,谢谢