Ms Word XP printing

[Miki Peric]

Is this code OK:

Sub OpenAndPrintWordDoc(strFile As String)
' assumes that the previous procedure has been executed
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim tString As String, tRange As Word.Range
Dim p As Long, r As Long

Set wrdApp = CreateObject("Word.Application")
'wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(strFile)
' example word operations
wrdDoc.Print
wrdApp.Quit ' close the Word application

Set wrdDoc = Nothing
Set wrdApp = Nothing

End Sub

It doesn't print document.

 

[Chad DeMeyer]

wrdDoc.Print --> wrdDoc.PrintOut

Regards,
Chad

 

[Miki Peric]

Thank you.