Question

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

我现在调用windows打印机设置调用成功了 但是设置完之后打印机没反应 根本就打印不出来picturebox里的图片 谁能帮我解决一下啊
'Dim P As New Class1
'P.Flags = cdlPDPageNums + cdlPDDisablePrintToFile + cdlPDNoSelection
'P.Min = 1
'P.FromPage = 3
'P.ToPage = 5
'P.Max = 100
'P.ShowPrinter
'Debug.Print Printer.DeviceName
'Debug.Print Printer.Copies
'Debug.Print P.FromPage
'Debug.Print P.ToPage
' Write here Print Code with Printer Object...
调用windows打印机设置的代码 还有就是PrintQuality 也不好用 控制不了打印质量

Answer 1

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

2、vb6示例：

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

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

End Sub

Answer 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

Answer 3

用Microsoft common dialog 吧，.print方法呼出打印机

Answer 4

PaintPicture Picture1.Picture, 200, Picture1.Top + 1000