Question

用vb编程怎么获得打印机列表内容？

Answer 1

1）在窗体上布置一个ComboBox和一个Command

2）窗体代码

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

Answer 2

在VB中有一个Printers对象，包含了本机安装的所有打印机。
For Each p In Printers
MsgBox p.DeviceName
Next

追问

给个详细的吧

追答

在窗体上加个文本框text1,一个按钮command1，代码：
private sub command1_click()
dim i as integer
'将本机安装的所有打印机名称输出到文本框中。
for each p in printers
i=i+1
text1.text=text1.text & i & ". " & p.devicename & vbcrlf
next