Sub wordopen() Dim objWord Set objWord = CreateObject("Word.Application") Dim objDoc Set objDoc = objWord.Documents.Open("C:\HR-Benefits\Enrollment\LifeInsurance-CoreAndSupplemental.docx") objDoc.PrintOut objDoc.Close objWord.Quit End Sub
I wrote the above code and it works. From an excel spreadsheet, it opens Word and prints the document. But, my company has set our default print to black and white. Is there a way to code the printer preferences for Word, in excel VBA?
Thanks for all your help.