怎样检测系统是否安装了打印机?

如题.
[3 byte] By [ask999-浮云] at [2008-2-12]
# 1
Public Function PrinterInstalled() As Boolean
On Error Resume Next
Dim strDummy As String
strDummy = Printer.DeviceName
If Err.Number Then
PrinterInstalled = False
Else
PrinterInstalled = True
End If
End Function
leolan-史留香 at 2007-10-21 > top of Msdn China Tech,visual basic,数据库(包含打印,安装,报表)...
# 2
Dim i As Integer
Dim printer As printer
i = 0
For Each printer In Printers
i = i + 1
Next

i就是打印机的数量
ukyoxh-我来学习 at 2007-10-21 > top of Msdn China Tech,visual basic,数据库(包含打印,安装,报表)...