如何获得系统已安装的打印机和默认打印机？

Question

printer 为当前打印机
printers 为已安装的打印机集合msgbox printer.DeviceNamefor each p in printers
  msgbox p.devicename
next

Answer 1

取得打印机：
If Printers.Count < 1 Then
    MsgBox "系统没有安装打印机！", vbCritical, App.Title
    Unload Me
    Exit Sub
End If
Dim Prns As Printer
For Each Prns In Printers
    List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0设定默认打印机：
Set Printer = Printers(List1.ListIndex)