Drucken via CMD
Hallo
Ich brauche unbedingt ein Batch Skript welches auf ausgewählten Netzwerkdrucker einen Einsatzplan druckt.
Printserver: SRVPRN001
Druckernamen: PRN001, PRN002, PRN003, usw..
Einsatzplan: T:\Einsatz\Plan.docx
Wäre gut wenn man im Skript auch noch angeben kann wie viele Seiten gedruckt werden sollen.
Gruass Dario
Ich brauche unbedingt ein Batch Skript welches auf ausgewählten Netzwerkdrucker einen Einsatzplan druckt.
Printserver: SRVPRN001
Druckernamen: PRN001, PRN002, PRN003, usw..
Einsatzplan: T:\Einsatz\Plan.docx
Wäre gut wenn man im Skript auch noch angeben kann wie viele Seiten gedruckt werden sollen.
Gruass Dario
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 272682
Url: https://administrator.de/contentid/272682
Ausgedruckt am: 22.11.2024 um 14:11 Uhr
15 Kommentare
Neuester Kommentar
Zitat von @MttKrb:
das wird warscheinlich daran liegen, dass der befehl print nur Text-Dateien verarbeiten kann. Dateiformate wie docx, xlsx, pdf
usw. sind keine Textdateien wie .txt etc.
das wird warscheinlich daran liegen, dass der befehl print nur Text-Dateien verarbeiten kann. Dateiformate wie docx, xlsx, pdf
usw. sind keine Textdateien wie .txt etc.
Und deswegen nimmt man dann Lösungen, wie ich sie verlinkt habe.
lks
Das war doch das Template für Freitags-Fragen.
Ist sowieso ein Doppelpost ... von vorgestern:
Drucken per Cmd
Wenns sowieso ein Word-Doc ist lässt sich das auch mit einem einfachen VBS-Script abfackeln, damit kannst du dann auch die Druckeinstellungen setzen.
Wenn du mir was spendierst schreib ich dir so ein Script
Gruß jodel
Drucken per Cmd
Wenns sowieso ein Word-Doc ist lässt sich das auch mit einem einfachen VBS-Script abfackeln, damit kannst du dann auch die Druckeinstellungen setzen.
Wenn du mir was spendierst schreib ich dir so ein Script
Gruß jodel
On Error Resume Next
'Variablen ----------
'Pfad zum Dokument
Const PATHDOC = "T:\Einsatz\Plan.docx"
'Array der Drucker auf denen das Dokument gedruckt werden soll
Printers = Array("\\SRVPRN001\PNR001","\\SRVPRN001\PNR002","\\SRVPRN001\PNR003")
'Anzahl der Seiten
intNumPages = 2
'--------------------
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.DisplayAlerts = False
strOriginalPrinter = objWord.ActivePrinter
Set doc = objWord.Documents.Open(PATHDOC)
For Each printer In Printers
objWord.ActivePrinter = printer
doc.PrintOut False,,,,,,,intNumPages
Next
objWord.ActivePrinter = strOriginalPrinter
objWord.DisplayAlerts = True
doc.Close
objWord.Quit False
Gruß jodel32
Die Infrastruktur von administrator.de für persönliche Bereicherung zu nutzen ist echt arm.
Nö, wenn die User so sind und hier nur fertige Lösungen abfischen wollen, finde ich es in Ordnung wenn dann wenigstens brauchbarer Code wie meiner einen Thread bereichert. Ich habe ihn ja gepostet, ist also für alle kostenlos zugänglich. Wenn dem TO damit geholfen ist bleibt es ja ihm überlassen ob er ihm etwas Wert ist. So haben beide Seiten was davon.Und woher willst du wissen wo die Spende letztendlich hingeht ?? Sicher nicht an mich persönlich, denn damit unterstütze ich hier einen Behindertenstifft, bei dem ich auch aktive Arbeit leiste.
Ich ordne deinen Kommentar also einfach mal als nächtlichen Überschwang ein.
Damit sollte der Themawechsel beendet sein
Schönen Pfingstmontag
Gruß jodel32