コマンドプロンプトでフォルダ内（デスクトップ）の複数PDFファイルの１ページ目だけを印刷したい

こんばんは。
複数PDFファイルの１ページ目だけをコマンドプロンプトで印刷する方法をネット検索し見つけたのですが、１ページ目だけを指定して印刷する方法をご教示ください。

Option Explicit
Dim f, gf, so, ws
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ws =CreateObject("WScript.Shell")
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "pdf" Then
ws.Run "AcroRd32.exe /t " & gf & "\" & f.Name
End If
Next
Set gf = Nothing
Set so = Nothing
Set ws = Nothing
MsgBox("Finished!")

No.1 回答者： mikinon 回答日時： 2022/09/12 00:21

アクロバット（AcroRd32.exe）でページ指定が無理ではないでしょうか。

検索してみたところ、
PDF-XChange Editorなら、コマンドラインでページ指定してプリント出来そうなので試してみてはどうでしょう。

PDF-XChange Editor V9
https://help.tracker-software.com/pdfxe9c/index. …
/print　コマンドのところ参照してください。

「PDF-XChange Editor」軽快で多機能なPDFビューワー - 窓の杜
https://forest.watch.impress.co.jp/library/softw …

おまけ。
プログラムからPDFファイルを印刷する方法 - holmesのメモ帳
https://holmes.hatenablog.com/entry/2014/04/10/0 …

この回答へのお礼

mikinonさん、ご回答ありがとうございました。
やっぱりできないですね。

お礼日時：2022/09/12 20:05