printer-10

Check If Printer Is Installed

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