6
Einen Ordner auf einmal ausdrucken
Mit Tools oder VB-Script
Hallo zusammen,
Ich suche ein kostenloses Tool (evtl. sogar ein VB), welches alle MS-Dokumente eines angegebenen Ordners auf dem Standarddrucker des Users ausdruckt.
Bsp.:
Ordner5 hat 100 (Übertrieben ist das nicht) Word Dokumente, diese sollen über Nacht auf dem Standarddrucker ausgedruckt werden.
Dazu würde ich gerne ein Tool verwenden, das aber wie immer nichts kosten soll.
Ein anderer Weg ist, aber da fehlt mir noch der Geistesblitz, ein VB-Script.
Wäre nett, wenn mir jemand helfen könnte, danke für die Hilfe!
MfG
Alexander
Ich suche ein kostenloses Tool (evtl. sogar ein VB), welches alle MS-Dokumente eines angegebenen Ordners auf dem Standarddrucker des Users ausdruckt.
Bsp.:
Ordner5 hat 100 (Übertrieben ist das nicht) Word Dokumente, diese sollen über Nacht auf dem Standarddrucker ausgedruckt werden.
Dazu würde ich gerne ein Tool verwenden, das aber wie immer nichts kosten soll.
Ein anderer Weg ist, aber da fehlt mir noch der Geistesblitz, ein VB-Script.
Wäre nett, wenn mir jemand helfen könnte, danke für die Hilfe!
MfG
Alexander
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: 75691
Url: https://administrator.de/contentid/75691
Printed on: April 18, 2024 at 18:04 o'clock
6 Comments
Latest comment
Moin,
du kannst doch alle Dokumente makieren uund dann im Kontextmenür (Rechtsklick) auf Drucken klicken. Allerdings brauchst du dazu Word bzw. das Programm womit man die Dateien standardmäßig öffnet.
mfg
ALex.
du kannst doch alle Dokumente makieren uund dann im Kontextmenür (Rechtsklick) auf Drucken klicken. Allerdings brauchst du dazu Word bzw. das Programm womit man die Dateien standardmäßig öffnet.
mfg
ALex.
Hallo ,
hier mal ein Beispiel für ein VBS-Script für dein Problem: // Setze einfach die Variable "folderToPrint" auf den Ordner den du drucken willst. Die FOR-Schleife durchläuft alle WORD-Dokumente in dem angegebenen Ordner, öffnet das jeweilige Dokument mit Word, druckt es auf dem Standard-Drucker aus und schließt es dann wieder.
Viel Spaß damit ...
hier mal ein Beispiel für ein VBS-Script für dein Problem: // Setze einfach die Variable "folderToPrint" auf den Ordner den du drucken willst. Die FOR-Schleife durchläuft alle WORD-Dokumente in dem angegebenen Ordner, öffnet das jeweilige Dokument mit Word, druckt es auf dem Standard-Drucker aus und schließt es dann wieder.
folderToPrint = "C:\Temp"
set objFS = CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(folderToPrint)
set objWord = CreateObject("Word.Application")
objWord.visible = false
for each doc in objFolder.Files
if LCase(Right(doc.Name,4))= ".doc" then
set open_doc = objWord.Documents.Open(doc.path)
open_doc.PrintOut
open_doc.close(0)
end if
next
wscript.Sleep 2000
objWord.quit(0)
danke für die antwort, da vb rockt einwandfrei!!!
Vielen Dank ist genau was ich haben wollte, hast du das selber gerade erst gemacht oder schon in der Schublade liegen gehabt?
Gruß und Danke
Alexander
Vielen Dank ist genau was ich haben wollte, hast du das selber gerade erst gemacht oder schon in der Schublade liegen gehabt?
Gruß und Danke
Alexander
wollte ich gerade auch mal schnell machen, ud habs so reingehackt ...extra für dich .. freu mich das du es gebrauchen kannst
danke danke, habe noch etwas dran gebaut:
DIM Ordner
DIM zaehler
Dim Eingabe
Eingabe = InputBox("Geben Sie bitte den gesamten Pfad ""C:\Temp"" ein.")
'ENDE Variablen Deklaration und Definition
zaehler=0
'MsgBox Eingabe
folderToPrint = Eingabe
set objFS = CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(folderToPrint)
set objWord = CreateObject("Word.Application")
objWord.visible = false
for each doc in objFolder.Files
if LCase(Right(doc.Name,4))= ".doc" then
set open_doc = objWord.Documents.Open(doc.path)
open_doc.PrintOut
open_doc.close(0)
end if
zaehler=zaehler+1
next
wscript.Sleep 2000
MsgBox "Es wurden " & zaehler & " Dokumente gedruckt", vbOKOnly, "Druckende"
objWord.quit(0)
Gruß
Alexander
PS: hast du evtl. Unterlagen parat?
DIM Ordner
DIM zaehler
Dim Eingabe
Eingabe = InputBox("Geben Sie bitte den gesamten Pfad ""C:\Temp"" ein.")
'ENDE Variablen Deklaration und Definition
zaehler=0
'MsgBox Eingabe
folderToPrint = Eingabe
set objFS = CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(folderToPrint)
set objWord = CreateObject("Word.Application")
objWord.visible = false
for each doc in objFolder.Files
if LCase(Right(doc.Name,4))= ".doc" then
set open_doc = objWord.Documents.Open(doc.path)
open_doc.PrintOut
open_doc.close(0)
end if
zaehler=zaehler+1
next
wscript.Sleep 2000
MsgBox "Es wurden " & zaehler & " Dokumente gedruckt", vbOKOnly, "Druckende"
objWord.quit(0)
Gruß
Alexander
PS: hast du evtl. Unterlagen parat?
Was für Unterlagen, meinst du eine VBS-Doku ? oder die Object-Dokumentation für das Application-Model von Word ? In Word hast du in der Hilfe eine Referenz für das Word-Application Object.
Hier eine Referenz für VBS
Hier eine Referenz für VBS
