1.6k Aufrufe
Gefragt in WindowsXP von snailhouse Mitglied (179 Punkte)
Hallo zusammen,

ist es möglich, einen Druckauftrag für ein bestimmtes Dokument z.B. 1x wöchentlich zu starten? Irgendwie über den Taskmanager und einer Batch-Datei o.ä?

Im voraus schon 'mal Danke!

Jürgen

3 Antworten

0 Punkte
Beantwortet von xmax Experte (4.1k Punkte)
Hi,

das wäre einen Versuch wert, per "Geplante Tasks" (Zubehör->Systemprogramme) und dann die Anwendung starten lassen.
Du solltest vielleicht mehr zum Dokument schreiben, wird die .doc-Datei geändert und nachher sollte der Ausdruck folgen?
Hier müsstest Du möglicherweise ein Makro (im Word) erstellen und es per Geplante Tasks ablaufen lassen.

MfG
0 Punkte
Beantwortet von snailhouse Mitglied (179 Punkte)
Hallo,

danke für den Tipp, manchmal ist die Lösung ganz einfach..
Ich lasse nun beim Öffnen des Dokuments gleich den Ausdruck starten und schließe Word dann wieder (wenn aktuell nur dieses eine Dokument offen ist.)

Gruß
Jürgen


Private Sub Document_Open()
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Application.DisplayAlerts = wdAlertsNone
If Application.Documents.Count = 1 Then
Application.Quit
Else
ActiveDocument.Close
End If
End Sub
0 Punkte
Beantwortet von snailhouse Mitglied (179 Punkte)
der Vollständigkeit halber,,


Private Sub Document_Open()
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Application.DisplayAlerts = wdAlertsNone
If Application.Documents.Count = 1 Then
Application.Quit
Else
ActiveDocument.Close savechanges = False
End If
Application.DisplayAlerts = wdAlertsAll
End Sub
...