Adobe Reader を閉じる

質問

EXCEL2007のマクロでブックの全シートをPDF形式で保存する処理をしているのですが
保存の都度Adobe Readerのウインドウが残ってしまいます。
表示させない方法か閉じる方法を教えてください。
最後にマクロブック以外のウインドウを全部閉じることが理想です。

回答No.3

nicotinism · ベストアンサー

PDFの作成は、MS社のアドインを使っていると仮定して・・
Excel2010では下記リンクの３ 発行後にファイルを開くのチェックを外して
一旦適当なものを出力すれば、次回以降はチェックは外れたままでReaderは立ち上がりませんでした。
http://www.atmarkit.co.jp/fwin2k/win2ktips/908offpdf/offpdf.html

Excel2010のマクロの記録だと

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="D:\DATA\123\Book1.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

が取得できました。
2007でも使えるかも？

これでもダメなら強制終了になってしまいますが
Sub rdDel()
Dim wProcess As Object
'アクロバットリーダーの強制終了
For Each wProcess In GetObject("winmgmts:root\cimv2") _
.ExecQuery("select * from Win32_Process where Name='AcroRD32.exe'")
wProcess.Terminate
Next
End Sub

強制終了は、ちょっとね・・でしたら、2007 ユーザーのご登場をお待ちください
以上ご参考まで。

お礼

私の差し替えに誤りがありました。
OpenAfterPublish:=true
を
OpenAfterPublish:=false
としたらAdobe Readerが機動することなく進みました。
解決です。ありがとうございました。

補足

コードを差し替えて実行してみましたが、
実行時エラー'1004'
ドキュメントを保存できませんでした。ドキュメントが開いているか、
保存時にエラーが発生した可能性があります。

となってしまいました。

回答No.2

goohiroko

環境が異なると違うかもしれませんが、PDFに出力する際のプリンタのプロパティで、表示させない設定ができませんか？
AdobePDF設定タブの結果のAdobePDFを表示のチェックをはずしてみて下さい。

補足

EXCEL2007のVBAで下のコードでPDF形式で保存を実行しています。
Save_Fileは、フルパスです。

Dim Save_File As String
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Save_File, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

回答No.1

AO89abcd

こんにちわ＾＾
windowsなんですか？
閉じる方法ならXで閉じられます。

お礼

VISTAです。ありがとうございました。