vb 能不能把PictureBox里面的所有控件打印出来???PICbox 控件里面有label,TEXT,MSHFlexGrid控件等等,现在
vb 能不能把PictureBox里面的所有控件打印出来???
PICbox 控件里面有label,TEXT,MSHFlexGrid控件等等,现在想把PictureBox里面所有的控件都打印出来,不知是否能实现,请高手指教。
如果不能,有方法实现实现否
[解决办法]
- VB code
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 LongPrivate Sub Command2_Click()With Picture1 .AutoRedraw = True '截屏保存到Picture1 BitBlt Picture1.hdc, 0, 0, .Width / Screen.TwipsPerPixelX, .Height / Screen.TwipsPerPixelY, Me.hdc, .Left / Screen.TwipsPerPixelX, .Top / Screen.TwipsPerPixelY, vbSrcCopy '输出到打印机 Printer.PaintPicture .Image, 0, 0 Printer.EndDocEnd WithEnd Sub
