Wordファイルを印刷するには?

解決

勇 2004-10-27 18:27:58 No: 117210

以下のプロシージャ(http://www.accessclub.jp/samplefile/samplefile_207.htm参考)
を動作させると、
「印刷中です。Wordを終了すると印刷待ちのすべてのジョブがキャンセル
されます。Wordを愁傷しますか？」
というメッセージが表示されます。
おそらく、プリンタに信号がいく前にWordを閉じるプログラムが
走るからではないかと思うのですが、
印刷が完了、またはプリンタに信号が行ったことを確認してから
Wordを閉じるようにするにはどのようにすればよいでしょうか？
最終的には、Wordファイルを開かずに印刷したいと考えています。
宜しくお願いいたします。

Function WordPrint(File_Name As String)
On Error GoTo Errflg
    Dim wrd As Word.Application
    Dim flag As Boolean

    Set wrd = GetObject(, "Word.Application")

    wrd.Visible = True
    wrd.Documents.Open FileName:=File_Name
    wrd.Activedocument.PrintOut
    wrd.Application.Quit
    Set wrd = Nothing

    Exit Function

Errflg:

    If Err.Number = 429 Then
        Set wrd = CreateObject("Word.Application")
        Resume Next
    Else
        MsgBox Err.Description & vbNewLine & Err.Number
    End If

End Function

勇 2004-10-27 19:43:22 No: 117211

解決しました。