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

[guolucky2003]

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

[wspsc]

use the collection prints!
but it is diff... connected or not,or ... power on,

[guolucky2003]

Dim p As Printer

Debug.Print Printers.Count
For Each p In Printers
Debug.Print p.DeviceName
Next
这句加在模块可以实现吗？Printers是什么意思呢？

[道素]

赞成楼上
例如
Private Sub Form_Load()
Dim i As Integer
Dim strPrintName As String
strPrintName = ""
For i = 0 To Printers.Count - 1
strPrintName = strPrintName & Printers(i).DeviceName & vbCrLf
Next
MsgBox strPrintName
End Sub

[道素]

Printers是收集系统安装打印机的一个集合