とあるフォルダに入っている３つのPDFファイルを一度に印刷したい

Question

###前提・実現したいこと
とあるフォルダに入っている３つのPDFファイルを一度に印刷したい。
1つ目：sample01.pdf
2つ目：sample02.pdf
3つ目：sample03.pdf と名前は固定されているとします。
sample01はそのまま印刷でいいのですが、sample02とsample03は用紙サイズを
A3に拡大して印刷をしたいです。

下記コードでは用紙サイズを指定できないですが、印刷することはできています。
dim a
Set w = CreateObject("WScript.Shell")
Set s = CreateObject("Scripting.FileSystemObject")
Set f = s.GetFolder(".")

For Each a In f.Files
If LCase(s.GetExtensionName(a.Name)) = "pdf" Then
w.Run ("AcroRd32.exe /t " & Chr(34) & f & "" & a.Name & Chr(34))
End If
Next
Set w = Nothing

ご教示よろしくお願いいたします。

Answer 1

Nuuさんのおっしゃるように、Adobe Reader では印刷用紙サイズを指定できません

私の扱った案件で似たようなことをしなければならず、以下の方法で実現しました

１）既定のプリンタドライバの用紙設定はＡ４とする
２）同じプリンタのドライバ設定を追加し、用紙設定をＡ３にする
Ａ４で印刷したいものは１）既定を使用
Ａ３で印刷したいものは２）Ａ３設定を使用

ご参考まで

Answer 2

コード拝見しました。
Adobe Reader を印刷オプションを指定して実行しているようですね。

印刷オプションで用紙サイズが指定できれば…と思ったのですが、
Adobe Reader の印刷オプションで用紙サイズは指定できないようです。
指定できるのはオプションは下記の4つのみです。

path ： ファイルパス
printername ： プリンタ名
drivername ： プリンタドライバ名（プリンタのプロパティで確認）
portname ： プリンタポート名（"/"という文字を含まないようにしてください）

しかし、
コードを下記のように修正すれば、印刷設定画面をファイルごとに表示することは可能です。

'AcroRd32.exe /t を AcroRd32.exe /p に修正して下さい
w.Run ("AcroRd32.exe /p " & Chr(34) & f & "\" & a.Name & Chr(34)) 

根本的な解決にはならないとは思いますが、参考になりましたら幸いです。

【印刷オプションについて】
Acrobat および Adobe Reader のコマンドラインオプション

Comments

[yoshikov05]

会社行って試してみます！回答ありがとうございます。

[yoshikov05]

皆さま、ありがとうございました。都度印刷設定で拡大することにしました。効率化できました。