Question

如何在vb中设置打印机的各种属性

Answer 1

Option Explicit
Private Sub Command1_Click()
'清空组合列表框
Combo1.Clear
'获取打印机。如果系统安装了打印机则添加到组合列表框中
Dim p As Printer
For Each p In Printers
Combo1.AddItem p.DeviceName
Next
'如果组合列表框中有打印机信息，显示第一项
If Combo1.ListCount > 0 Then
Combo1.ListIndex = 0
'否则提示：系统未安装打印机
Else
MsgBox "本计算机上未安装打印机”"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "获取打印机"
End Sub