FAXサーバーの構築４

（５）Word文書印刷時「まいとーくFAX 7」にイメージが渡せない
Office2007のAccessでFAXサーバーを作っていますが、Excelの印刷では「まいとーくFAX 7」にイメージが渡せるのに、Wordではどうしても失敗してしまいます。

Excelの場合はこれでうまくいきます。

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Application.Workbooks.Open(ファイル名)

xlBook.Worksheets(1).PrintOut

Workbooks(1).Close SaveChanges:=False '保存しないで終了
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

Wordの場合、下記で「まいとーくFAX 7」にどうしてもイメージが渡せません。

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(ファイル名)

wdDoc.PrintOut
wdApp.Quit SaveChanges:=wdDoNotSaveChanges　’保存しないで終了

Set wdDoc = Nothing
Set wdApp = Nothing

おかしなことに、デバッグモードだとうまくいきます。どうもタイミングの問題のようです。
あれこれ試してみたあげくにwdApoQuitを「保存して終了」にしてみました。

wdApp.Quit SaveChanges:=wdSaveChanges　　’保存して終了

今度はうまくいきました。（これってバグ？）