VB怎样调用打印机设置打印picturebox里的图片

2025-05-23 14:18:25

推荐回答（2个）

回答（1）：

1、vb6里可以用Printer对象的PaintPicture 方法实现打印picturebox里的图片。

2、vb6示例：

Private Sub Form_DblClick()
'实现打印图像到打印机

Printer.PaintPicture Picture1.Picture, 0, 0
Printer.EndDoc

End Sub

回答（2）：

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