Troubleshooting printers

Hi
I want to test whether there's a printer installed or not before I print the report. If not I should inform the particular user about the condition without resulting an error.
How's it is possible?

try following code

Code:

---

Private Sub Command1_Click()
   
    If Printer.DeviceName = "" Then
        MsgBox "No default printer is installed"
        Exit Sub
    End If
   
    'Printing can continue
    ' Code here
   
End Sub

---

:wave: http://www.freewebs.com/dineshns :wave: