Dokument zeitgesteuert ausdrucken

k491

Well-known member
20 April 2006
5.421
257
Hallo,
ich würde gerne jeden Morgen zu einer bestimmten Uhrzeit ein Excel Dokument auf dem Standarddrucker ausgeben lassen, dieser ist per Netzwerk verbunden. Auf dem PC läuft Windows 7.

Ich habe schon etliche Versuche unternommen, allerdings erfolglos. Das Dokument wird geöffnet, aber nicht gedruckt. Die Ausführung als geplanter Task konnte ich somit noch nicht testen.

Ich vermute es liegt an dem Anschluss per Netzwerk, dies lässt sich leider nicht ändern.
In Windows ist dieser Drucker jedoch der Standarddrucker.

Gibts sonst noch andere Möglichkeiten die ich probieren könnte?
 
Nachdem es keine Kommandozeilen-Parameter gibt, um das Drucken anzustoßen, brauchst du ja ohnehin irgendwas Makro-artiges. Was spricht also dagegen, dieses Makro nicht in die Excel-Datei selbst, sondern in ein VBScript zu stecken, und dann dieses (statt einem Batch- bzw. Commandfile) aufzurufen?


Code:
Set oExcel = CreateObject("Excel.Application")
Set oWorkbook = oExcel.Workbooks.Open("C:\Pfad\zu\meiner\Datei.xls", , True)
oWorkbook.Sheets("Tabelle1").PrintOut
oWorkbook.Close
Set oWorkbook = Nothing
oExcel.Quit
Set oExcel = Nothing