Macro to Print a Word document from Excel

[Aleksandra]

Hi All, I'm trying to create a button which prints multiple external documents (some word and some pdf) using a Macro in Excel. I've begun a Macro, but I don't know enough to see what I've done wrong...

Please explain what I need to Print these external documents, even one at a time. Here's what I attempted:

Sub PrintTitleWd()
'
' PrintTitleWd Macro
'
Dim MyWd As Word.Application
Set MyWd = CreateObject(Word.Application)

With MyWd
.Visible = True
Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End With
MsgBox "Quit this Application"
MyWd.Quit
Set MyWd = Nothing
End Sub

 

[gaj104]

If you read your code there is no reference to actually opening the file.

The code below will print out the file.

Dim MyWd As Word.Application
Set MyWd = CreateObject(Word.Application)

With myWD
    
    .Visible = True
    .Documents.Open ("C:\Temp.doc")
    .PrintOut
    .Quit

End With

Hope it helps