VB中打印picturebox中所有的东西 代码是多少

Question

如题所述

Answer 1

Private Sub cmdPic_Click()
On Error GoTo exitPr
If Picture1.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture1.Picture, 200, Picture1.Top + 1000
Else
MsgBox "没有图片可打印！"
End If
Printer.EndDoc
exitPr:
Exit Sub
End Sub追问

不好使啊 我往pic上加了个ole 我想把 ole上的打印出来，用你的语句只显示 没有图片可打印啊！！！！