“Picturebox为什么不能打印里面的内容”的回答者请来拿分！

[kmzs]

http://community.csdn.net/Expert/topic/3543/3543456.xml?temp=.4688379帖子一直没人结，但我想试试看将该问题送交FAQ，因此请主要回答者重新叙述你们的答案并给你们分数，谢谢！

[laviewpbt]

其实这个问题已经讨论了好多次！

[maskdata]

给你一个方法(可能比较笨)
先把PICTURE保存成图片文件再打印图片,然后删除图片文件

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long


Private Sub Command1_Click()
Picture1.Width = Me.Width
Picture1.Height = Me.Height
BitBlt Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, Me.hDC, 0, 0, vbSrcCopy
SavePicture Picture1.Image, "c:\acd.bmp" '保存到C盘
End Sub

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Visible = False
'Picture1运行时不可见,用来保存窗体界面
End Sub


以上是把窗体保存成图片的代码
如果你要保存别的东西,就把
Picture1.Width = Me.Width
Picture1.Height = Me.Height
这两句的坐标改一下,改成你要的,然后改一下取点的坐标

[kmzs]

Private Sub Command1_Click()
Picture1.Width = Me.Width
Picture1.Height = Me.Height
BitBlt Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, Me.hDC, 0, 0, vbSrcCopy
End Sub

就可打印了，不需要保存也可以。