VBAでpdfを印刷する際の動作について

Question

お世話になっております。

過去質問でお世話になったものです
前回のご回答を踏まえ、フォルダ内のpdfを一括印刷するような内容に組み替えてみたところ、
＜1番目のループ＞
pdf表示
↓
印刷
↓
次のファイル名を取得
＜２番目のループ＞
pdf表示
↓
印刷ダイアログ表示
↓
印刷
↓
次のファイル名取得

と、２番目～が必ず印刷ダイアログが出るようになってしまいました。
この１番目のループ同様、ダイアログを出さずに自動で印刷をループする流れを作りたいのですが
どうすればよいのでしょうか

試してみたこと
・プリンタ変更
これは特に変化なしでした。
・ファイルの保存先フォルダ変更
これも変化なしです
・adobe自体の設定が難点？
特に怪しい設定も調べても出てきませんでした
・ステップインで印刷がしっかりされた後、時間差で２週目に突入してみました （追加確認1
同じく印刷ダイアログが出現しました

何度もすみませんが、ご教示いただけますと幸いです。

以上、よろしくお願いします。

環境：
win10
excel2019
acrobat reader dc

Sub フォルダ内一括印刷()
    
    'Shell実行用の変数設定
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                    'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    Const folderPath = printFilePath = "C:\Users\●●●\Desktop\testfolder\プリントテスト\” 'フォルダパス
    Dim printFileName As String                                                    'ファイル名
    Dim printFilePath As String                                                      'ファイルパス
    Dim printerName As String                                                      'プリンタ名

    
    printerName ="""DocuCentre-V C3375"""
    
    '対象フォルダのPDFファイルをDir関数で取得
    printFileName = Dir(folderPath & "*.pdf")
 
    '拡張子が「.pdf」のファイルがある限り、処理をループ
    Do While printFileName <> ""
        'PDFファイルパスを設定
        printFilePath = folderPath & printFileName   '印刷するPDFファイルパス
        
        'Shellコマンドを設定
        strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName
        
        'Shellコマンドを実行
        wshShellObj.Run (strShellCommand)
        
        '次のPDFファイル名を取得
        printFileName = Dir()
    Loop
    
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
    
End Sub

Answer 1

こんにちは。

adobe Readerの［編集］→［環境設定］→ ［セキュリティ（拡張）］の
"起動時に保護モードを有効にする"のチェックが外れている（保護モードがOFF）の
時にそのような現象が出るようです。
（一部バージョンでは保護モードONでも同様の現象が出る場合があるようです）

adobe reader側保護モードの設定を有効に出来るのでしたら、それで改善しないでしょうか？

事情があって保護モードの設定を変更できない、あるいは（特定のバージョンにあたって）
保護モードがONなのに同様の事象が出るならば、adobe Readerの起動１発目は回避できるので

strShellCommand = "AcroRd32.exe /t "　のところを
strShellCommand = "AcroRd32.exe /n /t "　と/nオプションを追加することで回避
出来ないでしょうか？

Comments

[ookura]

保護モードのチェックで解決しました。
おかげ様でスピード解決でした、ありがとうございました。