Word-Dokumente in Ordnerstruktur in der richtigen Reihenfolge drucken

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Word-Dokumente in Ordnerstruktur in der richtigen Reihenfolge drucken

    Hallo zusammen,

    ich bin ein VBS Neuling und habe folgendes Problem:
    Ich habe mir mühselig ein Script zusammengebastelt, das alle Word-Dokumente in einer Ordnerstruktur mit Unterordnern ausdruckt.

    Da die gedruckten Dokumente anschließend als Dokument gebunden werden sollen, ist es natürlich wichtig, dass die einzelnen Dokumente in der richtigen Reihenfolge gedruckt werden.

    Jedoch scheint die Druckreihenfolge innerhalb eines Unterordners wahllos zu sein oder von einer anderen Dateieigenschaft (z. B. Erstellungsdatum??) abzuhängen.
    Oder anders gesagt: die Zeile "For Each file In fldr.Files" macht nicht das was ich will.

    Ich bin für jede Hilfe und Erklärung dankbar.

    Viele Grüße,
    taxischeria

    Hier mein Code:

    Visual Basic-Quellcode

    1. 'Pfad zu den Dokumenten wählen
    2. AuswahlTitel = "Bitte Datei oder Verzeichnis auswählen"
    3. StartOrdner = "17" 'Arbeitsplatz
    4. Set Dateiauswahl = CreateObject("Shell.Application").BrowseForFolder(0,AuswahlTitel,16,StartOrdner)
    5. Set Ordner = Dateiauswahl.Self
    7. 'Erweiterungen der Dateien die bearbeitet werden sollen
    8. arrFileExtensions = Array("doc","docx","docm")
    9. ' -------------------------------------------------
    10. Set fso = CreateObject("Scripting.Filesystemobject")
    11. Set objWord = CreateObject("Word.Application")
    12. Set objShell = CreateObject("Wscript.Shell")
    14. Dim intDocCount, intErrCount
    15. 'Applikation anzeigen und eventuelle Dialoge für Batchbetrieb unterdrücken
    16. objWord.Visible = True
    17. objWord.DisplayAlerts = 0
    18. 'Im Ordner Rekursiv alle Word-Dokumente verarbeiten
    19. Druckeinstellung = True
    20. parseFolders fso.GetFolder(Ordner.Path), True
    21. 'Das Anzeigen von Benachrichtigungen wieder aktivieren und Word schließen
    22. objWord.DisplayAlerts = -1
    23. objWord.Quit True
    24. Set fso = Nothing
    25. Set objWord = Nothing
    26. If intErrCount = 0 Then
    27. MsgBox "Es wurden insgesamt " & intDocCount & " Dokumente verarbeitet.", vbInformation, "Verarbeitung abgeschlossen"
    28. Else
    29. MsgBox "Es wurden insgesamt " & intDocCount & " Dokumente verarbeitet." & vbCrLf & "Davon ist bei " & intErrCount & " Dokumenten ein Fehler aufgetreten!", vbInformation, "Verarbeitung abgeschlossen"
    30. objShell.Run "Notepad.exe " & Ordner.Path & "\logfile_Druck.txt"
    31. End If
    33. 'Ende
    35. Function parseFolders(fldr, boolRecursion)
    37. For Each file In fldr.Files
    38. For i = 0 To UBound(arrFileExtensions)
    39. If LCase(arrFileExtensions(i)) = LCase(fso.GetExtensionName(file.Path)) Then
    40. intDocCount = intDocCount + 1
    42. 'Fehlerbehandlung für den Fall das ein Fehler beim Öffnen eines Dokumentes auftritt
    43. On Error Resume Next
    44. Set objDoc = objWord.Documents.Open(file.Path)
    45. If Err.Number <> 0 Then
    46. intErrCount = intErrCount + 1
    47. WriteLog "!!ERROR!! Fehler beim öffnen der Datei: -> '" & file.Path & "'"
    48. Else
    49. '----- Dokument drucken -----------
    50. If Druckeinstellung = True Then
    51. objWord.Dialogs(88).Show
    52. Druckeinstellung = False
    53. End If
    54. objDoc.PrintOut
    55. objDoc.Close
    56. WriteLog "Dokument wurde gedruckt: ->'" & file.Path & "' --> '" & strPathPDF & "'"
    57. End if
    58. Exit For
    59. End If
    60. Next
    61. Next
    63. 'Funktion wird rekursiv aufrufen wenn das durchsuchen aller Unterordner gewünscht ist
    64. If boolRecursion Then
    65. For Each subFolder in fldr.SubFolders
    66. parseFolders subFolder, True
    67. Next
    68. End If
    69. End Function
    71. Function WriteLog(strText)
    72. Set objLog = fso.OpenTextFile(Ordner.Path & "\logfile_Druck.txt",8,True)
    73. logline = Now & " - " & strText
    74. objLog.WriteLine(logline)
    75. objLog.Close
    76. End Function


    VB-BBCode eingefügt, bitte demnächst selbst dran denken!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo,

    das ist 'normales' Verhalten. Die Dateien / Ordner werden nach Inhaltsverzeichnis ausgegeben. Der Explorer z.B. sortiert diese dann standardmäßig nach Namen.

    Willst Du die Reihenfolge nach bestimmten Kriterien selbst bestimmen, dann hilft zwischenspeichern in einem Array, das Array sortieren und dann drucken.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo peterfido,

    vielen Dank für Deine Hilfe. Ich habe mir mal ein paar Beispiele zum Füllen von Arrays und zum "Bubbelsort" angeschaut und versucht das in meinen Code einzubauen.
    Leider schaffe ich es nicht, dass das Array gefüllt wird (an manchen Stellen frage ich Zwischenergebnisse mit einer MsgBox ab).
    Ich fürchte ich bräuchte nochmal einen kleinen Denkanstoß, was ich hier falsch mache...

    Untenstehend meine abgeänderte Function "parseFolders".

    Vielen Dank nochmal und viele Grüße,
    taxischeria


    Visual Basic-Quellcode

    1. Function parseFolders(fldr, boolRecursion)
    3. 'Array initialisieren
    4. Dim arr
    5. Redim arr (0)
    6. Dim Zaehler
    7. Zaehler = 0
    9. For Each file In fldr.Files
    10. For i = 0 To UBound(arrFileExtensions)
    11. If LCase(arrFileExtensions(i)) = LCase(fso.GetExtensionName(file.Path)) Then
    12. intDocCount = intDocCount + 1
    14. 'Fehlerbehandlung für den Fall das ein Fehler beim Öffnen eines Dokumentes auftritt
    15. On Error Resume Next
    17. 'Array füllen
    18. arr(Zaehler) = file
    19. MsgBox(arr(Zaehler))
    20. 'Array vergrößern
    21. Zaehler = Zaehler + 1
    22. Redim arr(Zaehler)
    24. Exit For
    25. End If
    26. Next
    27. Next
    29. 'Bubblesort
    30. for s = 0 to ubound(arr)
    31. for t = s + 1 to ubound(arr)
    32. if arr(s) > arr(t) then
    33. arrTemp = arr(s)
    34. arr(s) = arr(t)
    35. arr(t) = arrTemp
    36. end if
    37. next
    38. next
    40. 'Schleife über Array
    41. For v = 0 to Zaehler
    42. NewFile = arr(v)
    43. MsgBox(NewFile)
    45. Set objDoc = objWord.Documents.Open(NewFile.Path)
    46. If Err.Number <> 0 Then
    47. intErrCount = intErrCount + 1
    48. WriteLog "!!ERROR!! Fehler beim öffnen der Datei: -> '" & NewFile.Path & "'"
    49. Else
    50. '----- Dokument drucken -----------
    51. If Druckeinstellung = True Then
    52. objWord.Dialogs(88).Show
    53. Druckeinstellung = False
    54. End If
    55. 'objDoc.PrintOut
    56. MsgBox(NewFile.path)
    57. objDoc.Close
    58. WriteLog "Dokument wurde gedruckt: ->'" & NewFile.Path & "' --> '" & strPathPDF & "'"
    59. End if
    61. next
    64. 'Funktion wird rekursiv aufrufen wenn das durchsuchen aller Unterordner gewünscht ist
    65. If boolRecursion Then
    66. For Each subFolder in fldr.SubFolders
    67. parseFolders subFolder, True
    68. Next
    69. End If
    70. End Function


    VB-BBCode eingefügt, bitte demnächst selbst dran denken!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo,

    folgender Code, als VBS-Datei gespeichert, erstellt eine Textdatei mit dem Inhalt des Ordners, welcher auf die VBS draufgezogen wurde. Sortiert wird entweder nach Namen oder chronologisch.

    Visual Basic-Quellcode

    1. Option Explicit
    3. dim Dateiname,fSO, fSO1, WshShell, Treffer, Unterordner, DatumSort, objFile, Pfad, Arg, L, D, S
    4. dim Dateien()
    5. Const Maxalter = 63, ForReading = 1, ForWriting = 2, ForAppending = 8
    7. Unterordner=1
    8. DatumSort=1
    10. Treffer=0
    12. Set fSO = CreateObject("Scripting.FileSystemObject")
    13. if WScript.Arguments.count > 0 then
    14. For Each Arg in Wscript.Arguments
    15. Pfad = WScript.Arguments(0)
    16. if fso.FolderExists(Arg) then
    17. Pfad=Arg
    18. if right(Pfad,1)="\" then
    19. Dateiname = left(Pfad, len(Pfad)-1) & " Inhalt.txt"
    20. else
    21. Dateiname = Pfad & " Inhalt.txt"
    22. end if
    23. Los
    24. else
    25. msgbox "Ungültiger Ordner: " & Pfad, vbokonly+vbcritical, "Ordnerkontrolle"
    26. end if
    27. next
    28. else
    29. msgbox "Es wurde kein Ordner mit übergeben", vbokonly+vbcritical, "Ordnerkontrolle"
    30. end if
    31. Set fSO = Nothing
    33. private Sub Los()
    34. redim Dateien(0)
    35. Set fSO1 = CreateObject("Scripting.FileSystemObject")
    36. err.clear
    37. on error resume next
    38. if fSO1.FileExists(Dateiname) = true then
    39. fso1.DeleteFile Dateiname
    40. end if
    41. if err.number=0 then
    42. on error goto 0
    43. Dateienlesen Pfad
    44. else
    45. err.clear
    46. on error goto 0
    47. msgbox "Textdatei konnte nicht gelöscht werden." & vblf & "Bitte evtl. Notepad schließen" , vbcritical+vbokonly, "Fehler beim Dateizugriff"
    48. exit sub
    49. end if
    51. if Treffer>0 then
    52. QuickSort Dateien, 0, ubound(Dateien)
    53. Set objFile = fSO1.CreateTextFile(Dateiname, True)
    54. for l = 0 to Treffer -1
    55. objFile.WriteLine S & Dateien(l)
    56. next
    57. objFile.WriteLine(Treffer & " Dateien gefunden.")
    58. objFile.close
    59. Set fSO1 = Nothing
    60. msgbox Treffer & " Dateien gefunden", vbinformation+vbokonly,"Fertig: Dateien sortieren"
    62. Set WshShell = WScript.CreateObject("WScript.Shell")
    63. WshShell.Run("notepad.exe " & chr(34) & Dateiname & chr(34))
    64. Set WshShell = Nothing
    65. Treffer=0
    66. Else
    67. msgbox "Keine Datei gefunden", vbinformation+vbokonly,"Fertig: Dateien sortieren"
    68. end if
    69. End Sub
    71. Private Sub QuickSort(ByRef ArrayToSort, ByVal Low, ByVal High)
    72. Dim vPartition, vTemp
    73. Dim i, j
    74. If Low > High Then Exit Sub
    75. vPartition = ArrayToSort((Low + High) \ 2)
    76. i = Low: j = High
    77. Do
    78. Do While ArrayToSort(i) < vPartition
    79. i = i + 1
    80. Loop
    81. Do While ArrayToSort(j) > vPartition
    82. j = j - 1
    83. Loop
    84. If i <= j Then
    85. vTemp = ArrayToSort(j)
    86. ArrayToSort(j) = ArrayToSort(i)
    87. ArrayToSort(i) = vTemp
    88. i = i + 1
    89. j = j - 1
    90. End If
    91. Loop Until i > j
    92. If (j - Low) < (High - i) Then
    93. QuickSort ArrayToSort, Low, j
    94. QuickSort ArrayToSort, i, High
    95. Else
    96. QuickSort ArrayToSort, i, High
    97. QuickSort ArrayToSort, Low, j
    98. End If
    99. End Sub
    101. Private Sub Dateienlesen(ByVal sPfad)
    102. Dim fSO, fld, f, d
    103. Set fSO = CreateObject("Scripting.FileSystemObject")
    105. Set fld = fSO.GetFolder(sPfad)
    106. if Unterordner=1 then
    107. For Each f In fld.SubFolders
    108. if f.size>0 then
    109. Dateienlesen (f.Path)
    110. end if
    111. Next
    112. end if
    113. For Each d In fld.Files
    114. Treffer=Treffer+1
    115. redim preserve Dateien(Treffer -1)
    116. if DatumSort=1 then
    117. Dateien(ubound(Dateien))=Year(d.DateCreated) & "-" & Right("0" & Month(d.DateCreated), 2) & "-" & Right("0" & Day(d.DateCreated), 2) & " - " & d.Path
    118. else
    119. Dateien(ubound(Dateien))=d.Path
    120. end if
    121. Next
    122. End Sub


    Edit:
    Ein paar Variablen sind über (Ausschnitt aus einem größeren Projekt), stören aber nicht.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo peterfido,

    vielen Dank! Mit Deiner Hilfe habe ich das Script so hingebogen, dass es funktioniert.
    Die Dokumente werden nun nach Dateinamen sortiert an den Drucker gesendet. Ein Log, in dem ich parallel mitschreiben lasse, welche Dokumente an den Drucker gesendet, werden bestätigt mir das.

    Jedoch sieht die Realität so aus, dass die Dokumente nicht in dieser Reihenfolge in der Druckwarteschlange landen. Die Ausdrucke kommen weiterhin chaotisch aus dem Drucker. Damit wäre mein schönes Script unbrauchbar.
    Vermutlich liegt es an der unterschiedlichen Verarbeitungszeit der verschiedengroßen Dokumente. Ich hab die Spoolereinstellungen auch schon geändert, aber leider ohne Erfolg.

    Hat hier noch jemand eine Idee? Ich probier schon seit Tagen erfolglos das Problem zu lösen.

    Meine aktuellen Druckereinstellungen, was den Spooler betrifft, sieht man im angehängten Screenshot.

    Vielen Dank im Voraus für jegliche Hilfe.

    Grüße,
    taxischeria
    Dateien

    Hallo,

    im einfachsten Fall eine Pause zwischen den Druckaufträgen einlegen sollte helfen. Dann gibt es noch die Möglichkeit, dass sich diesbezüglich was direkt am Drucker einstellen lässt. Das ist dann aber Druckerspezifisch und als weitere Möglichkeit kommt noch ein evtl. Druckserver als Übeltäter in Frage.
    Gruß
    Peterfido

    Keine Unterstützung per PN!