ＶＢＡ★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません

PDFをPDFアプリで印刷しようと思っていますが上手くゆきません。
以下のコードを実行すると
「AcrobatReader この文書を開くときにエラーが発生しました。このファイルが見つかりません。」というコメントが出てしまいます。
以下の「fff」をMsgBoxを使って表示させたのですが、ファイル名は間違っていません。
フォルダの中にはＰＤＦファイルを一つだけ置く決まりで運用しています。
コードの間違いを教えて下さい。

Sub PDFをPDFアプリで印刷する()

Dim wshShellObj As IWshRuntimeLibrary.WshShell 'Shellオブジェクト
Set wshShellObj = New IWshRuntimeLibrary.WshShell
Dim strShellCommand As String 'Shellコマンド

Dim folderPath As String
folderPath = "C:\フォルダパス\" 'フォルダパス

Dim str1 As String
Dim fff As Variant

str1 = "C:\フォルダパス\" 'フォルダパス
'Ｄｉｒ関数を使ってファイル名を取得する
fff = Dir(folderPath)

printFilePath = folderPath & fff '分割元のファイルパス
Dim printerName As String
printerName = "PDF reDirect v2 on Ne00:" 'プリンタ名（ＰＤＦ印刷アプリ）

'Shellコマンドを設定
strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName

'Shellコマンドを実行
wshShellObj.Run (strShellCommand)

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

End Sub

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/06/06 22:28

こんばんは

確認はしていませんが、これではないでしょうか？
https://teratail.com/questions/319795

空白を含むファイルパスやプリンタ名はダブルクォーテーションで括るとどうなりますか？

この回答へのお礼

ご紹介いただいたＨＰの対応でAcrobatReaderのメッセージが出なくなりました。ありがとうございました。

お礼日時：2022/06/07 09:30