How to check there is a printer?

[RogADog]

Re Excel 97 on NT4

Before getting to:

Worksheet.Printout

is it possible for VBA to check that:

1. The current user has installed a printer on the PC
2. The printer is switched on

Or is the only way to prevent this kind of error the use of an error trapper?

Rog

 

[Molby]

Rog,

I wrote the below in Excel XP to make sure there is a printer installed.

Sub testforprinter()
b$ = ActivePrinter
If b$ = "unknown printer (check your Control Panel)" Then
  MsgBox ("You need to have a printer installed on your pc. Go to 'Printers & Faxes' and connect to your local printer")
  End
End If
End Sub

I don't know if it's possible to check that the printer is actually switched on.