程序怎么获得打印机的型号或者品牌

Question

程序怎么获得打印机的型号或者品牌

Answer 1

printer.DeviceName     '打印机名  

Answer 2

用Printers.Count检测是否安装了打印机，如果为0则没安装打印机。 
printer.Port '打印接口号如何获得系统已安装的打印机和默认打印机？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)