1
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 346429
Url: https://administrator.de/contentid/346429
Printed on: April 19, 2024 at 03:04 o'clock
1 Comment
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
