VB 如何查出有無安裝印表機

Question

==========================
VB 如何查出有無安裝印表機
==========================
沒有沒簡單的方式就可以查出電腦有沒有安裝印表機
VB6的寫法與VB-NET的寫法
感謝幫忙

Answer 1

'版本:VB6.0Private Sub Command1_Click()    If hasPrinter = True Then       Print "有裝印表機"    Else       Print "沒裝印表機"    End IfEnd SubFunction hasPrinter() As Boolean    Dim S As String        On Error Resume Next        S = Printer.DeviceName    hasPrinter = Not CBool(Err.Number)End Function