Wordファイルを印刷するには? (ID:117210)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のプロシージャ(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