printer对象打印问题
本人VB6新手上路,请教大家一个问题,先表示感谢!command1是打印按钮,原是想点击该按钮后打印图片,可是只有把程序退出后才能打印。怎么样才能不退出程序就能实现打印呢?
private sub command1_click()
Printer.ScaleMode = 6
Printer.ScaleWidth = 102
Printer.ScaleHeight = 152
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.PaintPicture Image1.Picture, 5, 5, 80, 60
Printer.PaintPicture Image1.Picture, 5, 75, 80, 60
Printer.PaintPicture Image2.Picture, 10, 10, 5, 5
Printer.PaintPicture Image2.Picture, 10, 80, 5, 5
end Sub