Make your own free website on Tripod.com
Check If Printer Is Installed

Check if a printer is installed on user computer.

Form Code

  Public Function IsPrinterInstalled() 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
Private Sub Form_Load()
    MsgBox IsPrinterInstalled()
End Sub

Go Back