CodeItBetter Programming Another VB Programming Blog

'System & API - How to Check whether a Printer is Installed

Public Function IsPrinterInstalled() As Boolean
    On Error Resume Next
    Dim strDummy As String
    strDummy = Printer.DeviceName
    If Err.Number Then
        PrinterInstalled = False
        Debug.Print "Printer is not installed"
    Else
        PrinterInstalled = True
        Debug.Print "Printer is installed"
    End If
End Function
 
Private Sub Main()
    MsgBox IsPrinterInstalled
End Sub