シェルコマンドを使用してPDFを印刷する

Question

下記のコードで、指定したpathのPDFファイルを特定のプリンターで紙出力を自動的に実行するコードを作成しております。
これを仮に実行すると何もerrorが出力されず、Adobe Acrobat reader DCの初期ホーム画面が立ち上がるのみで、紙が出力されません。
尚、ライブラリでWindows Script Host Object Modelには適切にチェックされており、下記のPDFから下記指定のプリンターに対して手動で出力すると問題なく紙面出力ジョブが転送されます。

何か、考えらえる問題点はございますでしょうか？
お力添えの程、宜しくお願い申し上げます。

Sub openFile()
  
    Dim strPDFName As String
    Dim strFolderPath As String
    strFolderPath = Cells(2, 6).Value
    strPDFName = Dir(strFolderPath & "*見積*")
    
    Dim wshShellObj As IWshRuntimeLibrary.WshShell                         
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String                                              'Shellコマンド
    Dim printFilePath As String
    printFilePath = strFolderPath & "\" & strPDFName 
    Dim printerName As String                                                     
    printerName = "\rmad03\FX DocuCentre-VI C5571(70)"
　　 Debug.Print(printerName) '\rmad03\FX DocuCentre-VI C5571(70) on XXXであることを確認
    Debug.Print(printFilePath) '正しくPathが出力されていることを確認
 
    strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName
    wshShellObj.Run (strShellCommand)
 
    Set wshShellObj = Nothing
    
End Sub

Comments

[attercop]

解決するかは分かりませんが、strShellCommandのファイルパス、プリンタ名はダブルクォーテーションで括るようにされた方がよいと思います。
少なくともプリンタ名にはスペースを含んでるようなので。

Answer 1

一旦指定のプリンターを通常使うプリンターに設定し、
下記コードで名前を取得してみてはいかがでしょうか。

VBAマクロでPDFを印刷する方法およびプリンタ情報を取得する

    '通常使うプリンターを取得
    Dim activePrinter As String
    activePrinter = Application.activePrinter

    '取得できなかった時の処理
    If activePrinter = "" Then
        MsgBox "プリンター情報が取得できませんでした" & Chr(13) & "プリンターが接続されていることを確認してください"
        End
    End If

    Dim intPoint1 As Long           'プリンタ名を切り出す為の文字数

    'ファイル名（" on"の前まで）とポート名("on "の後から最後まで）を切り出す
    '※プリンタによって形式が異なるかもしれませんので、お使いの環境に合わせてください
    intPoint1 = InStr(activePrinter, "on") - 2

    Dim usePrinter As String 'ポートを除いたプリンタ名
    usePrinter = Left(activePrinter, intPoint1)

Comments

[pegy]

ありがとうございます！ご指摘の方法で解決いたしました。
printer名称の代入に問題があったようです。
宜しくお願い申し上げます。