Excel VBA and WORD question

[mattmickle]

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.

 

[Macropod]

Changing the printer's colour setting programmatically involves working with the Windows API. See, for example: http://www.lessanvaezi.com/changing-printer-settings-using-the-windows-api/