先日、こちらで、VBAを記述したエクセルのブックと同一フォルダーにおいておいたABC.DOCをプリントし、ABC.DOCを閉じる方法を教えていただき、Excel2003でためしたら、下記でうまくいきました。(その際、回答者のchie65536さん、手が滑ってポイントをつけず締め切ってしまいました、申し訳ございません。)
ところが今、会社のExcel2000でやったところ、「印刷中です。Wordを終了すると印刷待ちのすべてのジョブがキャンセルされます。」と出てしまいます。
ABC.DOCをプリントしおわったら、ABC.DOCを閉じ、ワードを終了するようにしたいのです。
ためしに、wd.Quitの代わりに、wd.ActiveDocument.Close とすれば印刷はされましたが、ワードが終了しません。
wd.ActiveDocument.Close のあとに wd.Quitを入れると、「印刷中です。Wordを終了すると・・・・」が出てしまいます。
どうなおせばよいのでしょうか?
Sub Word_Print()
Dim wd As Object
Set wd = CreateObject("Word.application")
wd.Visible = True
wd.documents.Open Filename:=ThisWorkbook.Path & "\ABC.doc"
wd.ActiveDocument.PrintOut
wd.Quit
Set wd = Nothing
End Sub
よろしくお願いいたします。
お礼
さっそくありがとうございました。 Background:=Falseって、バックグラウンド印刷じゃなくするということなんですね? これでばっちりです。