OK, at work now and tested it. It worked fine but I was unable to
choose how many copies I wanted. We print several of the documents at
one time and need to be able to control that part of it, too.
> OK. I'm at home and don't have a duplex printer to test it on but wanted
> to check and make sure I did it right. I created a template and put in
[quoted text clipped - 11 lines]
> > You need to include all the code at the end of the article as well as the
> > small code sample near the start
> OK, at work now and tested it. It worked fine but I was unable to
> choose how many copies I wanted. We print several of the documents at
> one time and need to be able to control that part of it, too.
You can change this line
ActiveDocument.PrintOut Background:=False
to this
Dialogs(wdDialogFilePrint).Show
This will display the print dialog so that the user can choose how many
copies are printed.
Alternatively, you can simply set the Copies parameter of the PrintOut
method to the appropriate value, like this
ActiveDocument.PrintOut Background:=False, Copies:=3

Signature
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Tonya Marshall - 10 Nov 2004 00:02 GMT
I chose the first option as it's not a static amount. Jonathan, those
macros must have taken a lot of thought and time to write. I am so
pleased with the results - it worked smoothly without any hitches and I
truly appreciate what you have done. Thank you so much for walking me
through all of that, and I had the easy part to do. Just copy and paste.
As I said in a previous post, I had never worked with modules and I had
a kind of Aha! moment there. Speculation and multiple possibilities
about modules have been swirling around so I'm going to start a new
subject about modules as I have a lot of questions.
Thank you again for all your help and macros.
Tonya Marshall
>> OK, at work now and tested it. It worked fine but I was unable to
>> choose how many copies I wanted. We print several of the documents at
[quoted text clipped - 15 lines]
>
> ActiveDocument.PrintOut Background:=False, Copies:=3