Question

怎样打印Picturebox里面的内容

怎样打印Picturebox里面的内容，代码怎么写？

Answer 1

Private Sub command1_Click()
Dim kCDl
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
'MsgBox CommonDialog1.HelpKey
If Err.Number <> 0 Then Exit Sub '如果异常退出过程
For kCDl = 1 To CommonDialog1.Copies
Printer.Print picture1
Printer.NewPage
Next
MsgBox "打印完毕!", , "提示"
End Sub

Answer 2

Printer.PaintPicture Picture1.Picture, 0, 0