こんにちは。

環境
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 を表示"チェック等）を行い保存しましても、
ブックを開くたびに設定が初期化されてしまいます。

どなたかお知りの方いらっしゃいましたら、よろしくお願い致します。

自己レスします。

********************************************************
プリンタ設定
　↓
Acrobat Distillerのプロパティ
　↓
全般タブの印刷設定にて、
"Acrobat で PDF を表示", "PDF ファイルの保存先を確認"チェック除去
　↓
ポートタブにて、
ポートの追加　→　PDF Port
********************************************************
以上によって、要点1., 2.を満たすことにしました。
任意のファイル名へは、PDF作成後にファイルリネームにて対応します。

掲示板を汚してすいませんでした。