Adobe Reader を閉じる

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

No.3 ベストアンサー 回答者： nicotinism 回答日時： 2012/04/04 12:49

PDFの作成は、MS社のアドインを使っていると仮定して・・

Excel2010では下記リンクの３ 発行後にファイルを開くのチェックを外して
一旦適当なものを出力すれば、次回以降はチェックは外れたままでReaderは立ち上がりませんでした。
http://www.atmarkit.co.jp/fwin2k/win2ktips/908of …

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 ユーザーのご登場をお待ちください
以上ご参考まで。

この回答への補足

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

となってしまいました。

補足日時：2012/04/04 16:54

この回答へのお礼

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

お礼日時：2012/04/04 17:01

No.2 回答者： goohiroko 回答日時： 2012/04/04 12:42

環境が異なると違うかもしれませんが、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

補足日時：2012/04/04 16:44

No.1 回答者： AO89abcd 回答日時： 2012/04/04 11:43

こんにちわ＾＾

windowsなんですか？
閉じる方法ならXで閉じられます。

この回答へのお礼

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

お礼日時：2012/04/04 16:39