Printing Multiple Copies of Word Doc from Excel VBA

I am trying the following code snippet from inside Excel VBA to call and print a Word document. I want to print 11 copies of the document when this snippet runs:

Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
If Weekday(Now()) <> vbSaturday And Weekday(Now()) <> vbSunday Then
For Each Item In Array("C:\Users\gstearns\documents\notes.docx")
Set objDoc = objWord.Documents.Open(Item)
objDoc.PrintOut
objDoc.Copies = 11
objDoc.Close
Next
End If
objWord.Quit

My question is: Is the code correct for printing 11 copies (the objDoc.Copies = 11 line in the code) or do I need to write it differently to get 11 copies of the document?

Thanks!

Glenn
Glenn StearnsAnalystAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

NorieAnalyst Assistant Commented:
Glenn

You specify the no of copies to print like this.
objDoc.PrintOut Copies:=11

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Martin LissOlder than dirtCommented:
Try reversing these two lines.

objDoc.PrintOut
objDoc.Copies = 11
Glenn StearnsAnalystAuthor Commented:
Thanks!
Martin LissOlder than dirtCommented:
Please don't forget to close this question.
Glenn StearnsAnalystAuthor Commented:
Thanks!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Printers and Scanners

From novice to tech pro — start learning today.