Hi

I have an excel userform which will print out some excel documents for me , however there is some word docs that i need to print to.

I have used the code below but it keeps stopping on the .print line of code, can anyone help please


Private Sub print_word_Click()

'Note: A refernce to the Word object library is required, via Tools|References
Dim wdApp As New Word.Application, wdDoc As Word.Document
Set wdDoc = wdApp.Documents.Open(Filename:=ActiveWorkbook.Path & "W.SES-2.09.00Att02.doc", _
ReadOnly:=True, AddToRecentFiles:=False)
With wdDoc
.PrintOut
.Close , False
End With
wdApp.Quit
Set wdDoc = Nothing: Set wdApp = Nothing