请教：我想在我的软件上添加一个检测打印机是否安装的程序，应该怎样写呢？

Question

请教：我想在我的软件上添加一个检测打印机是否安装的程序，应该怎样写呢？

Answer 1

if printers.count<1 then
    msgbox "打印机没有安装"
end if

Answer 2

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