Comment imprimer des fichiers pdf dans l'ordre de la liste de cellules en utilisant Excel-VBA?

Question

Je n'arrive pas à comprendre comment je peux imprimer les fichiers PDF dans l'ordre (ordre de la liste des cellules).

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 

aide visuelle:

recherche Je l'ai fait jusqu'à présent:

Aucune ligne de commande switch pour imprimer des fichiers dans l'ordre.

Mise à jour-1 MyCode Après Suggestions:

je object.run méthode dans mon code et j'obtiens l'erreur:

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 

Erreur:

Update-2 Mon code Afte r Suggestions:

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

Problème: I réussi à imprimer en utilisant la méthode d'exécution, mais je dois fermer Adobe Acrobat Reader après chaque fichier. Je dois imprimer plus de 500 fichiers.

Answer 1

Je modifie le code avec Ghostscript

Sous PrintPDFFiles()

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

Answer 2

Utilisez this pour imprimer toutes sortes de fichiers de la liste des cellules étant donné que les fichiers existent dans le répertoire de fichiers. Fondamentalement, ce logiciel imprime tous les types de fichiers dans l'ordre.