窗口的打印问题。

Question

怎么用printer控件来打印当前窗口的所有的内容。
  实现的目的：当按下按钮时，就相当于按下了word中的打印按钮一样，就会弹出打印效果。
   不是调用CommonDialog1.Action = 5这种。
请给详细原代码。高分相送！！

Answer 1

你所说的“打印效果”是指打印预缆吗？form1为要打印的窗体.
form2为要显示的打印预缆的窗体，在form2上放一picturebox在form1中
……
private sub command1_click() '打印预缆
 form2.load
 set form2.picture1.picture=me.picture
 form2.show
end sub……
在form2中
……
private sub command1_click() '在form2上的打印按钮
 Printer.PaintPicture Picture1.Picture, 0, 0
 Printer.EndDoc
end sub随手写的没有测试。希望能对你有所帮助。祝好运！