Check I a have a Printer where I can Print

[drom]

Hi and Thanks in advance!
If I use:

Sheets(1).PrintOut Preview:=true

I have no problem
If I use:

Sheets(1).PrintOut Preview:=False

Excel is prompting me to put a name in order to save the sheet(1) as PDF

But In My house I do not have a Printer, In my Office yes
So prior sendind anything to:

Sheets(1).PrintOut

before trying to print anything...

I would like to have a macro to check if I do have actually a printer​

I can't Use:
?Application.ActivePrinter
because I get:
Nitro PDF Creator en Ne00:
so...
Any Help?

 

[Larry Haydn]

You can bring up a printer selection dialog before the printout statement:

Application.Dialogs(xlDialogPrint).Show