alle Dateien aus Ordner drucken
26.10.2008 10:40:00
Bruno
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