troubleshooting Question

Printing Multiple Copies of Word Doc from Excel VBA

Avatar of Glenn Stearns
Glenn StearnsFlag for United States of America asked on
Printers and ScannersVBAMicrosoft Word
5 Comments1 Solution477 ViewsLast Modified:
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
ASKER CERTIFIED SOLUTION
NorieSenior Associate
Join our community to see this answer!
Unlock 1 Answer and 5 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 5 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros