给你一个方法(可能比较笨) 先把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 SubPrivate Sub Form_Load() Picture1.AutoRedraw = True Picture1.Visible = False 'Picture1运行时不可见,用来保存窗体界面 End Sub
先把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 SubPrivate Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Visible = False
'Picture1运行时不可见,用来保存窗体界面
End Sub
如果你要保存别的东西,就把
Picture1.Width = Me.Width
Picture1.Height = Me.Height
这两句的坐标改一下,改成你要的,然后改一下取点的坐标
来拿分http://community.csdn.net/Expert/topic/3543/3543456.xml?temp=.4688379