Excel-VBAを使用してセルリストの順にPDFファイルを印刷する方法は？

Question

PDFファイルをどのように順番に印刷できるか（セルリストの順番）は分かりません。

Sub PrintPDFFiles() 
    zProg = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" 
    zLastRow = [a65536].End(xlUp).Row 
    temp = "a1:a" & zLastRow 
    zPrinter = "HP LaserJet Professional M1213nf MFP " 
    For Each cell In Range(temp) 
    zFile = cell.Value 
    If zFile Like "*.pdf" Then 
    Shell """" & zProg & """/n /h /t""" & zFile & """" 
    End If 
    Next 
    End Sub 

ビジュアルエイド：

研究私がこれまで行ってきた：

ませんコマンドラインswitchは順序でファイルを印刷します。提案後

更新-1 MyCode：

私は私のコードでメソッドをobject.run使用し、私が取得エラー：

Sub PrintPDFFiles() 
    zProg = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" 
    zLastRow = [a65536].End(xlUp).Row 
    temp = "a1:a" & zLastRow 
    zPrinter = "HP LaserJet Professional M1213nf MFP " 
    For Each cell In Range(temp) 
    zFile = cell.Value 
    If zFile Like "*.pdf" Then 
    Dim wsh As Object 
    Set wsh = VBA.CreateObject("WScript.Shell") 
    Dim waitOnReturn As Boolean: waitOnReturn = True 
    Dim windowStyle As Integer: windowStyle = 1 
    zCommand = zProg & " /n /h /t " & Chr(34) & zFile & Chr(34) & " " & zPrinter 
    wsh.Run zCommand, windowStyle, waitOnReturn 
    End If 
    Next 
    End Sub 

エラー：

更新-2マイコードAfte R提案：

wsh.Run """Acrobat.exe"" /n /h /t" & Chr(34) & zfile & Chr(34) & " " & zPrinter, , waitOnReturn 

問題： は、私は、しかし、私は、各ファイルの後には、Adobe Acrobat Readerを閉じるように持って、runメソッドを使用して印刷することができました。私は500以上のファイルを印刷する必要があります。

Answer 1

私は、ファイルがファイルディレクトリに存在していることを与えられたセルリストからのファイルのすべての並べ替えを印刷に使用this

zProg = "gsprint -printer printerName -dPDFFitPage " 
zLastRow = [a65536].End(xlUp).Row 

Dim Counter As Integer 

For Counter = 1 To zLastRow 

    zFile = Worksheets("Sheet1").Cells(Counter, 1).Value ' Where 1 is the first column 
    If zFile Like "*.pdf" Then 
     Shell """" & zProg & zFile & """" 
    End If 

Next Counter 

End Subの（）のGhostScriptで

Answer 2

を

サブPrintPDFFilesをコードを変更します。基本的に、このソフトウェアはすべての種類のファイルを順番に印刷します。