excel macro to print word document

R

rookie_2468

Is there a way to use an excel macro to print an MS Word Document? I a
currently using a button to print various worksheets within the sam
excel spreadsheet. However, the formatting of the text is not quite a
nice as what is available in word.
At the moment, I am using the link function to export to my informatio
to the various MS Word files I require (maybe not all that efficient bu
functional none the less). What I am trying to do is print all of thos
documents with the button I created in Excel. Switching to Word an
running the print command is too time consuming.
Is there a way to use the macro buttons to do this.
I have read many of the similar threads, but to date, none have helpe
me solve my question.

Thanks in advance for any help
 
R

Ron de Bruin

Hi

Try something like this

Sub test()
Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.Documents.Open ("C:\ron.doc")
WD.ActiveDocument.PrintOut Background:=False
WD.ActiveDocument.Close
WD.Quit
Set WD = Nothing
End Sub
 
Top