Microsoft Excel

Herbers Excel/VBA-Archiv

alle Dateien aus Ordner drucken | Herbers Excel-Forum


Betrifft: alle Dateien aus Ordner drucken von: Bruno
Geschrieben am: 26.10.2008 10:40:53

Guten Morgen zusammen

Aus einer Excelmappe möchte ich per VBA diverse PDFs, die zuvor mit Acrobat erstellt worden sind, zusammen drucken. Hier im Forum habe ich einen Code dazu gefunden, der sich jedoch nur auf eine einzelne Datei und nicht auf alle Dateien des Ordners bezieht. Nachstehend der entsprechende Teil des Codes für die Dateiauswahl:

Sub prcPrint_PDF()
    Dim strPath As String, strShortPath As String, strFile As String
    strFile = "Test.pdf"
    strPath = "C:\Devis\Zeichnungen\"
    strShortPath = Space(MAX_PATH)
    GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
    ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
End Sub



Wie muss der Code für die Variante «alle Dateien drucken» lauten?

Für Eure Tipps besten Dank zum Voraus,

Bruno

  

Betrifft: AW: alle Dateien aus Ordner drucken von: Tino
Geschrieben am: 26.10.2008 11:01:04

Hallo,
ungetestet.

Sub prcPrint_PDF()
    Dim strPath As String, strShortPath As String, strFile As String
    Dim FSO, F1
    
    strPath = "C:\Devis\Zeichnungen\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO = FSO.Getfolder(strPath)
    
    For Each F1 In FSO.Files
        If CStr(F1) Like "*.pdf" Then
            strFile = CStr(F1)
            strShortPath = Space(MAX_PATH)
            GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
            ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
        End If
    Next F1

End Sub




Gruß Tino

www.VBA-Excel.de




  

Betrifft: AW: alle Dateien aus Ordner drucken von: Bruno
Geschrieben am: 26.10.2008 11:35:40

Danke Tino für Deine prompte Antwort, leider regt sich aber mit dem erweiterten Code gar nichts, auch keine Fehlermeldung. Mit meinen bescheidenen VBA-Kenntnissen komme ich natürlich nicht weiter; eventuell findest Du aber den «Bremsschuh» doch noch.

Gruss, Bruno


  

Betrifft: AW: alle Dateien aus Ordner drucken von: Tino
Geschrieben am: 26.10.2008 11:56:49

Hallo,
ja ist auch klar strFile ist bereits der komplette Pfad + Datei.

Sub prcPrint_PDF()
    Dim strPath As String, strShortPath As String, strFile As String
    Dim FSO, F1
    
    strPath = "C:\Devis\Zeichnungen\"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO = FSO.Getfolder(strPath)
    
    For Each F1 In FSO.Files
        If CStr(F1) Like "*.pdf" Then
            strFile = CStr(F1)
            strShortPath = Space(MAX_PATH)
            GetShortPathName strFile, strShortPath, MAX_PATH
            ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
        End If
    Next F1

End Sub



Gruß Tino


  

Betrifft: AW: alle Dateien aus Ordner drucken von: Bruno
Geschrieben am: 26.10.2008 12:49:46

Herzlichen Dank Tino für Deine Bemühungen, so klappt es jetzt wie gewünscht, super!!

Einen schönen Sonntag noch und beste Grüsse,

Bruno


Beiträge aus den Excel-Beispielen zum Thema "alle Dateien aus Ordner drucken"