VBAでpdfファイルを印刷する時、エラーが発生します

Question

お世話になっております。
下記のようなコードで、あるpdfファイルをプリントアウトするようなプログラムを作成しております。

プログラムを動かすと、acrobat readerは立ち上がりますがファイルは表示されず起動初期画面状態です。
また、acrobat readerのエラーメッセージも発生しておりまして、
「この文書を開くときにエラーが発生しました。ファイルが開けません」
とのメッセージが出て、印刷まで到達できません。

ファイルパス自体は間違いなく存在し、パス自体をエクスプローラー等に放り込んでも
普通にファイルが開けます。
この場合、どのような要因が考えられるのでしょうか。ご教示いただけますと幸いです。

以下試してみたことです。
・ファイルの保存場所を変えてみましたが変化なしでした
・プリンタも色々切り替えてみましたが特に変化なく

環境：
win10
excel2019
acrobat reader dc

Sub 印刷テスト()
    
    'Shell実行用の変数設定
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                    'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    
                                                   'ファイル名
    Dim printFilePath As String                                                      'ファイルパス
    Dim printerName As String                                                      'プリンタ名
        
        printerName = "DocuCentre-V C3375"
 
        printFilePath = "C:\Users\●●●\Desktop\testfolder\プリントテスト\テストファイル.pdf"   '印刷するPDFファイルパス
        
        'Shellコマンドを設定
        strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName
        
        'Shellコマンドを実行
        wshShellObj.Run (strShellCommand)

    
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
    
End Sub

Answer 1

acrod32.exe を　acrobat.exeに直してみてください

Answer 2

こんにちは。

プリンタ名に空白が含まれているようですが、wshShellObj.Runの引数に設定している
変数を編集する際に、単純にファイル名やプリンタ名を結合しているため、空白で
引数が区切られて正しく認識されていないのではないでしょうか？

printerName = """DocuCentre-V C3375"""　や
printFilePath = """C:\Users\●●●\Desktop\testfolder\プリントテスト\テストファイル.pdf"""

のように前後のダブルクォーテーションを重ねて、各々の名称が
ダブルクォーテーションで囲まれた形にしたら改善しないでしょうか？

Comments

[ookura]

ご教示頂いた内容でプリンター名のダブルクオーテーションを重ねたら改善しました！
ありがとうございました！