遍历printer并获取名称,然后选择指定的即可。这有一VB代码,希望有帮助Private Sub Form_Load() Dim iPrinter As Printer Combo1.Clear For Each iPrinter In Printers Combo1.AddItem iPrinter.DeviceName Next iPrinter End Sub Private Sub Combo1_Click() Dim strPrinter As String striPrinter = Combo1.Text End Sub
Dim iPrinter As Printer
Combo1.Clear
For Each iPrinter In Printers
Combo1.AddItem iPrinter.DeviceName
Next iPrinter
End Sub
Private Sub Combo1_Click()
Dim strPrinter As String
striPrinter = Combo1.Text
End Sub