'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

Copyright By AccessVision