Word Dokument per VBS in Postscriptdrucker drucken
Hallo,
ich habe irgendwo im Forum mal ein VBS-Skript gefunden, mit dem man Worddokumente in einen beliebigen Drucker drucken kann.
Dieses habe ich soweit angepasst das der Druck der doc. Dateien im Postscript Drucker gestartet werden.
Dies funktioniert auch mit folgenden Einschränkungen:
- Die erste Seite ist immer eine Leerseite
- Seite 2 entspricht der Seite 1 des Worddokumentes
- Seite 3 ist wieder eine Leerseite welche normalerweise die Seite 2 des Worddokumente beinhalten soll.
Nun meine Frage liegt das am VBS-Skript (siehe unten) oder stimmt da was nicht mit dem Postscript Drucker ?
If WScript.Arguments.Count < 2 Then
WScript.Echo("Syntax: PrintADoc.vbs Worddatei.doc [Druckername]" )
WScript.Quit
End If
strFile = WScript.Arguments(0)
PSFilename = Wscript.Arguments(1)
Set objWord = WScript.CreateObject("Word.Application")
StdDrucker = objWord.ActivePrinter
If WScript.Arguments.Count > 2 Then
objWord.ActivePrinter = Wscript.Arguments(2)
end if
objWord.Documents.Open strFile
objWord.ActiveDocument.PrintOut False , , , PSFilename , , , , , , , True
objWord.ActivePrinter = StdDrucker
Wscript.Sleep(5180)
objWord.ActiveDocument.Close
objWord.Quit
Für Eure Hilfe wäre ich sehr dankbar.
ich habe irgendwo im Forum mal ein VBS-Skript gefunden, mit dem man Worddokumente in einen beliebigen Drucker drucken kann.
Dieses habe ich soweit angepasst das der Druck der doc. Dateien im Postscript Drucker gestartet werden.
Dies funktioniert auch mit folgenden Einschränkungen:
- Die erste Seite ist immer eine Leerseite
- Seite 2 entspricht der Seite 1 des Worddokumentes
- Seite 3 ist wieder eine Leerseite welche normalerweise die Seite 2 des Worddokumente beinhalten soll.
Nun meine Frage liegt das am VBS-Skript (siehe unten) oder stimmt da was nicht mit dem Postscript Drucker ?
If WScript.Arguments.Count < 2 Then
WScript.Echo("Syntax: PrintADoc.vbs Worddatei.doc [Druckername]" )
WScript.Quit
End If
strFile = WScript.Arguments(0)
PSFilename = Wscript.Arguments(1)
Set objWord = WScript.CreateObject("Word.Application")
StdDrucker = objWord.ActivePrinter
If WScript.Arguments.Count > 2 Then
objWord.ActivePrinter = Wscript.Arguments(2)
end if
objWord.Documents.Open strFile
objWord.ActiveDocument.PrintOut False , , , PSFilename , , , , , , , True
objWord.ActivePrinter = StdDrucker
Wscript.Sleep(5180)
objWord.ActiveDocument.Close
objWord.Quit
Für Eure Hilfe wäre ich sehr dankbar.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 160608
Url: https://administrator.de/contentid/160608
Ausgedruckt am: 16.11.2024 um 11:11 Uhr
2 Kommentare
Neuester Kommentar