ExcelマクロでAcrobatを制御したい
いつも楽しく勉強させていただいております。
下記の作業をExcelマクロで自動化したいのですが、うまくいきません。
(1)ブックの中の非表示でないシートをすべて選択する。
(2)PDFファイルとして出力する。
Win7でExcelのバージョンは2003です。
社内には2007もあるのですが、レーダーチャートが崩れるとかで2003を使わないといけません。
PDF化するためにAdobe Acrobat XI Proの製品版を購入する予定ですが、とりあえず３０日間無料のお試し版をインストールしてあります。
自動記録を利用しつつ、下記のマクロを作成しました。
Sub PDF化()
Dim ws As Worksheet
Dim i As Integer
Dim ArrayShName() As String
Workbooks.Open "C:\Users\meglin\Documents\出力フォルダ\book1.xls"
i=0
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then
ReDim Preserve ArrayShName(i)
ArrayShName(i) = ws.Name
i = i + 1
End If
Next
Worksheets(ArrayShName).Select
Application.ActivePrinter = "Adobe PDF on Ne10:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub
ところがこれを実行すると困ったことが二つあります。
(1)PDFの保存場所を聞くダイアログボックスが表示される。
(2)できたPDFファイルが自動的に表示されてしまう。
Excelのブックは将来的には数千個になるので、これではやっていられません。
保存場所は最初に指定したフォルダに入れて毎回聞いて来ないでほしいし、できたPDFもいちいち表示されないようにできないものでしょうか。
Adobe Acrobat XI Proを起動しておいて複数のブックを選択してPDF化することも試しましたが、一番最初のシートしかPDFにしてくれません。
お礼
何とか。いろいろやって通常に戻りました。
補足
この設定を見ても下に出てくるアクロバットの絵の部分しか消えません。 ファイル、編集、表示、お気に入り、ツール、ヘルプの段にこの"Adobe PDF"という文字が１個出てくることは分かりますが、５個も出てくるのは（１個はＰＤＦ変換をする。この変換作業の内容が出て機ましが。のこり４個はその変換をすることを聞いてくる部分が空欄で正常になっていません）・・となる現象の原因は。 わかりにくい質問文で申し訳ありませんでした。