VB6.0高手请进：如何检测操作系统中是否安装了打印机？在线等待！！！

Question

如何检测操作系统中是否安装了打印机？
最好能提供一些代码

Answer 1

打印机集合Printers是一个包括操作系统中所有可用打印机的对象
利用Printers.count检测操作系统是否安装了打印机private sub Check_Printer()
  Dim x As Printer
      
  if Printers.Count=0 then
    msgbox "操作系统没有安装打印机",64,"提示"
  else
    '打印操作系统中所有打印机的设备名称    
    For Each x In Printers
     Debug.Print x.DeviceName
    Next
  end if  end sub