小问题

[网络老男孩了]

为什么form.printform打印不出来picturebox中的图形.!!!
如何才能打印出来!!!

[网络老男孩了]

是不是VB的BUG????????????????????
象Combobox不能调整高度一样.

[xayzmb]

Printer.PaintPicture(picture1, ......)

[海牛]

'试一试这样行吗？

Option Explicit
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 PrintMe()
Dim objT As Object
Me.AutoRedraw = True
For Each objT In Me.Controls
If TypeOf objT Is PictureBox Then
BitBlt Me.hDC, objT.Left, objT.Top, objT.ScaleWidth, objT.ScaleHeight, objT.hDC, 0, 0, vbSrcCopy
Me.Refresh
End If
Next objT
Me.PrintForm
End Sub

[zhujiechang]

printer.paintpicture是一个很方便的办法,但不知道能够和窗口打印在一起.
bitblt应该可以实现.

[网络老男孩了]

TO:xayzmb(行者)
我是要打印窗体,还有其他控件.
TO:Rick110AAA(海牛猪猪)
你的方法不行,还是打印不出图形