| 投稿日 | ： 2005/03/30(Wed) 14:56 |
| 投稿者 | ： プリン |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Excel から Acrobat Distiller へ印刷 |
こんにちは。
環境
VB5, Excel2000, Acrobat Distiller5.0
VBより、ExcelシートについてAcrobat Distillerへ印刷しようとしております。
この際、以下の要点を満たすコードが分かりません。
1. 保存先を任意に指定。 但し、ダイアログ表示なし。
2. 保存後、PDFファイルを表示しない。
以下、現状コード抜粋になります。
********************************************************
set ExApp = New Excel.Application
set ExBook = ExApp.Workbooks.Open("D:\hoge.xls")
set ExSheet = ExBook.Worksheets("fuga")
call ExSheet.PrintOut(From:=1, To:=1, ActivePrinter:="Acrobat Distiller on Ne02:")
********************************************************
Excel VBAマクロ記録で確認しましても、
印刷オプションで表示されるチェックボックスについての設定が記入されません。
また、ブックへ印刷設定（"Acrobat で PDF を表示"チェック等）を行い保存しましても、
ブックを開くたびに設定が初期化されてしまいます。
どなたかお知りの方いらっしゃいましたら、よろしくお願い致します。