Print specific range but user to select printer
 

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)

Print specific range but user to select printer
 

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)

Print specific range but user to select printer
 

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)

.

Print specific range but user to select printer
 

Well, then try Dialogs(9), it will not print the document

Regards,
Per

"Code Numpty" skrev i meddelelsen
...
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)

.

Print specific range but user to select printer
 

Thanks Per! Just the job. I've never come across Dialogs(8) or (9) before and
will check them out. You help is much appreciated.

Sharon

"Per Jessen" wrote:

Well, then try Dialogs(9), it will not print the document

Regards,
Per