Printer.PaintPicture 怎么什么也打印不出来

Question

Image1控件已经有图片装入，但是打印出来还是白纸一张，请问是怎么回事？Private Sub Command2_Click()
  
   Printer.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height, 10, 10, 10, 10End Sub

Answer 1

你先用form..PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height, 10, 10, 10, 10
看看有没有效果
绘图只支持.bmp、.wmf、.emf、.cur、.ico或 .dib
如果能看到正确的效果，再找打印的问题

Answer 2

如果我没有记错的话,应该是这样的:
printer1.NewDoc         '新建打印页
...
printer1.PaintPicture...'打印图片或其他内容
...
printer1.EndDoc         '最后输出打印内容

Answer 3

楼上的，人家都“打出白纸一张了”
不用你在提醒enddoc了

Answer 4

你试着把单位改大点，看能不能打印出来。
改正如下：
Private Sub Command2_Click()
  
   Printer.PaintPicture Image1.Picture, 0, 0, Image1.Width, Image1.Height, 100, 100, 1000, 1000End Sub