Thanks Per,

What happens now is that I get 2 prints.
The first bit of code
Application.Dialogs(8).Show ' Show Printer Dialog!
prints the area of the sheet containing data or formatting from the print
dialog.
Then the second bit of code
Worksheets("Disinfections").Range("pen_list").Prin tOut
prints out the specified range.

The second print is correct because it is a dynamic named range.
How can I get the macro to print the named range through the print dialog box?

"Per Jessen" wrote:

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)

.