Print word docs via Excel VBA

Hello All,

I have a problem which I and others here at my place of work cannot fathom out as to why it does not work. Why would a document not print out from the print dialogue box? Here is the code that I am using which does as it says, opens the document then opens the print dialogue box but will not print, that is when I hit print nothing happens.

Dim OpenWordDoc()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("G:\Network address here\My doc name.doc")
    wrdApp.Dialogs(wdDialogFilePrint).Display

Many thanks for your help.

Colin