複数PDFファイルをシェルコマンドでループ印刷ができない

Question

下記のようなコードでstrFolderPathに複数の「見積」というワードを含むファイルを印刷しようとした場合、これを実行することができませんでした。
現象としては、仮に2つのファイルが格納している場合、最初のファイルが開かれたときに「この文書を開くときエラーが発生しました。アクセスが拒否されました」とされ、OKを選択すると2件目だけ出力されます。また、試しに3個以上を格納しても見たのですが、最後のファイルしか出力されないことがわかりました。
Debug.Print (printFilePath)ここでは確かにすべてのpathが適切にイミディエイトに出力されていることが確認できるのですが、問題点や解決方法について、アドバイスを願えますでしょうか。

宜しくお願い申し上げます。

  
    Dim strPDFName As String
    Dim strFolderPath As String
    Debug.Print (Application.activePrinter)
    
    
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                          'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    Dim printFilePath As String

    'Printerの処理------------------------------------------------
    Dim activePrinter As String
    activePrinter = Application.activePrinter
    If activePrinter = "" Then
        MsgBox "プリンター情報が取得できませんでした" & Chr(13) & "プリンターが接続されていることを確認してください"
        End
    End If
    Dim intPoint1 As Long
    intPoint1 = InStr(activePrinter, "on") - 2
    Dim usePrinter As String
    usePrinter = Left(activePrinter, intPoint1)
    Debug.Print (userPrinter)
     '------------------------------------------------
    
    'Loop処理------------------------------------------------
    strFolderPath = Cells(2, 6).Value
    strPDFName = Dir(strFolderPath & "*見積*")
    Dim fileCount As Integer
    
    
    If strPDFName = "" Then
          Cells(2, 7).Value = "×"
    Else
    fileCount = 1
      Do While strPDFName <> "" 'Folder内に複数の見積がある場合のループ
        printFilePath = strFolderPath & "\" & strPDFName
　　　　 Debug.Print (printFilePath)'ここ
        strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & userPrinter
        wshShellObj.Run (strShellCommand)
        Cells(2, 7).Value = "○"
        Cells(2, 8).Value = fileCount
        fileCount = fileCount + 1
        strPDFName = Dir()
      Loop
    fileCount = 1
    End If
    '------------------------------------------------
    
 
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
    

End Sub

Answer 1

手元にAcrobatReaderが入っていませんのでコマンド文字の確認のみですが
たとえば、このような内容が出力されました。

\SERVERNAME.local\FUJI XEROX MODEL_NAME on Ne06:
AcroRd32.exe /t C:\Users\USERNAME\Documents\report1.pdf \SERVERNAME.local\FUJI XEROX MODEL_NAME

うまくいかない要因としては
0. セルに設定するフルパスのファイル名の中に半角空白がある
0. 標準利用プリンタ名に空白がある
0. （タスクからの自動起動の場合）実行ユーザーが異なるためにファイルへの権限がない

ということが考えられます。

１または２番については、ダブルクオーテーションで括り

strShellCommand = "AcroRd32.exe /t " & """" & printFilePath & """" & " " & """" & usePrinter & """"

このような出力にすると、どうでしょうか。

AcroRd32.exe /t "C:\Users\USERNAME\Documents\report1.pdf" "\SERVERNAME.local\FUJI XEROX MODEL_NAME"

３番については、Excelのデバッグで動くかどうか＆読めるフォルダに移して確認する
という方法があるかと思います。

（参考）連続自動印刷について調べるのに使ったサイト：
https://qiita.com/takiru/items/f38e94e666e802fa9a25

Comments

[pegy]

ありがとうございます。実際のファイル名には半角空白が存在するのですが、これを考慮しなくてはいけないという事情が分からずしらべていたのですが、実装することができました。一旦解決をしたのでクローズします。ちょっと不思議です。。。