Check for Active Printer

Hi,
How can I check if there is an active printer ready to
receive the print job.

Thank you.

U can find out if a printer is installed. I found this code snippet somewhere , don't remember where.

Usage

x = PrinterInstalled

Code

Public Function PrinterInstalled() 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

Hope this solves ur problem

It sure does!

Thanks SimpleVB