Mehrere Word Dokumente per Batch Drucken lassen
Hallo zusammen,
ich weis hierzu gibt es schon viele Beiträge aber bis jetzt hat mir noch kein Beitrag wirklich geholfen.
Mein Problem ist das wir Kollegen haben die ein Ordner mit 20-40 Word Dokumenten haben die Sie jede Woche 1 mal ausdrucken müssen. Wenn Sie diese Dokumente per markieren und Druckfunktion drucken werden Sie leider in einer komplett unübersichtlichen Reihenfolge gedruckt. Da ich mich mit Batch nicht so gut auskenne bin ich leider nicht mehr weiter gekommen als das:
for /L %%n in (1, 1, 4) do (
"C:\Program Files\Microsoft Office\Office15\WINWORD.exe" /t /h "C:\Users\SSGO\Desktop\Neuer Ordner\Mahnung_%%n.docx"
)
Momentan ist es eine schleife die mir schön in einer alphanumerischen Reihenfolge die Dokumente druckt.
Verwendet wird Office2010 auf einem 64 oder 32 Bit System
Es kann auch gerne ein Programm verwendet werden
ich weis hierzu gibt es schon viele Beiträge aber bis jetzt hat mir noch kein Beitrag wirklich geholfen.
Mein Problem ist das wir Kollegen haben die ein Ordner mit 20-40 Word Dokumenten haben die Sie jede Woche 1 mal ausdrucken müssen. Wenn Sie diese Dokumente per markieren und Druckfunktion drucken werden Sie leider in einer komplett unübersichtlichen Reihenfolge gedruckt. Da ich mich mit Batch nicht so gut auskenne bin ich leider nicht mehr weiter gekommen als das:
for /L %%n in (1, 1, 4) do (
"C:\Program Files\Microsoft Office\Office15\WINWORD.exe" /t /h "C:\Users\SSGO\Desktop\Neuer Ordner\Mahnung_%%n.docx"
)
Momentan ist es eine schleife die mir schön in einer alphanumerischen Reihenfolge die Dokumente druckt.
Verwendet wird Office2010 auf einem 64 oder 32 Bit System
Es kann auch gerne ein Programm verwendet werden
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 346429
Url: https://administrator.de/forum/mehrere-word-dokumente-per-batch-drucken-lassen-346429.html
Ausgedruckt am: 04.05.2025 um 10:05 Uhr
1 Kommentar
Habe es selbst mit einer .vbs hinbekommen
Sub PrintFolder (FolderName, Copies)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Word = CreateObject("Word.Application")
Set Folder = FS.GetFolder(FolderName)
For i = 1 to Copies
For Each File in Folder.Files
If Right(File.Name,5) = ".docx" Then
Set Doc = Word.Documents.Open(File.Path, False, True)
Doc.Printout False 'da kannst du noch viele weitere Parameter angeben.
Doc.Close(wdDoNotSaveChanges)
End If
Next
Next
Word.Quit
End Sub
PrintFolder "C:\Users\SSGO\Desktop\Drucken", 1
Sub PrintFolder (FolderName, Copies)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Word = CreateObject("Word.Application")
Set Folder = FS.GetFolder(FolderName)
For i = 1 to Copies
For Each File in Folder.Files
If Right(File.Name,5) = ".docx" Then
Set Doc = Word.Documents.Open(File.Path, False, True)
Doc.Printout False 'da kannst du noch viele weitere Parameter angeben.
Doc.Close(wdDoNotSaveChanges)
End If
Next
Next
Word.Quit
End Sub
PrintFolder "C:\Users\SSGO\Desktop\Drucken", 1
