Check for Active Printer

[VBonliner]

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

Thank you.