Does anyone know how to automate printing with Excel? I have this code to print Word documents that are chosen in a listbox and I am needing to adapt this for excel also. Any help is greatly appreciated.
Dim objWord as Object
Set objWord = CreateObject("Word.App")
objWord.Documents.Open (strFile)
objWord.PrintOut Background:=False
objWord.Quit
Set objWord = nothing
Dim objWord as Object
Set objWord = CreateObject("Word.App")
objWord.Documents.Open (strFile)
objWord.PrintOut Background:=False
objWord.Quit
Set objWord = nothing