Member
Beiträge: 29
| Liebes Forum,
ich habe einen Ordner mit vielen pdf-Dateien. Diese sind alphabetisch sortiert (Namen beginnen mit 01...pdf, 02...odf usw.). Mit dem nachfolgenden Code kann ich alle pdf-dokumente in einem ausdrucken - allerdings wirft mir das Windows-Drucksystem die Dateien in willkürlicher Reihenfolge aus. Ähnliches passiert auch, wenn ich im Explorer alle Dateien sortiere und mit rechter Maustaste "Drucken" wähle... auch dann passt die Reihenfolge nicht.
Mein aktueller Code (Ordnernamepdf = gesamter Pfad des Ordners mit den pdf-Dateien):
====Code=====
Dim strPath As String
Dim FSO As Object, F1 As Object
strPath = Ordnernamepdf '(z.B. "C:\test\pdf-dateien")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.GetFolder(strPath)
For Each F1 In FSO.Files
If LCase(CStr(F1.path)) Like "*.pdf" Then
ShellExecuteA 0&, "Print", F1.path, vbNullString, vbNullString, 0
End If
Next F1
Set F1 = Nothing
Set FSO = Nothing
======================
Ich suche und probiere und finde keine Lösung :-( Kann ich z.B. den Ordnerinhalt in eine Tabelle schreiben, und dort als Recordset o.ä. einzeln ausdrucken? Hat jemand vielleicht eine andere zündende Idee?
Danke!
Georg |
