Hi

This will save Default printer, let user print out on selected printer and
return to default printer.

MyPrinter = ActivePrinter
Application.Dialogs(8).Show ' Show Printer Dialog!
Worksheets("Disinfections").Range("pen_list").Prin tOut
Application.ActivePrinter = MyPrinter



Happy New Year!

Per


"Code Numpty" skrev i meddelelsen
...
Hi, I have the following in one of my macros to print to the default
printer.

Worksheets("Disinfections").Range("pen_list").Prin tOut

How do I change this so that the print dialog box pops up to allow the
user
to select the printer and page size?

Happy New Year! (nearly)