Drucken unter Word 2003 bzw. 2007

[Inquirent]

Hallo,

gibt es bei Word eine Möglichkeit, automatisch (per Knopfdruck) ein Dokument zweimal zu drucken, wobei der erste Ausdruck farbig und der zweite Ausdruck schwarz-weiß ist?

Hintergrund ist eigentlich nur eine Kopie für mich, welche ich auch Kostengründen nicht farbig drucken möchte, da diese eh' in einem dunklen Ordner verschwindet.

 

[Marjoker]

Hallo,

unkompliziert geht es so:

Einen zusätzlichen Drucker im System installieren (den gleichen nochmal) hier aber in den Optionen "Schwarz/Weiss" einstellen.
Beim Drucken musst du 1x den Drucker mit Farbe auswählen, und 1x den SW-Drucker.

Um es Automatisch zu gestalten geht es nur über ein Makro.
Dazu müssten auch 2 Drucker im System installiert sein - 1x Farbe, 1 x SW.

Ich kenne nicht deine allg. Word/Makro-Kenntnisse,
Aber du kannst z.B. in Word ein Makro "aufnehmen", wo du ein Dokument druckst.
Dieses kann in VB vom Word bearbeitet werden.
So musst du nicht alles selber schreiben.

 

[Inquirent]

Makro Kenntnisse sind nicht vorhanden.

Mit den beiden Druckern installieren ist kein Thema, jedoch wenn ich zweimal auf drucken klicken muss und dabei jeweils den anderen Drucker auswählen muss, kann ich es auch mit einem und dabei umstellen auf s/w belassen.

Ich hätte einfach gerne ein Sysmbol in der Leiste und klick, fertig :-)

 

[Heretic Novalis]

... und eben das bekommst du über den beschriebenen makro-weg

 

[Inquirent]

wo kann ich denn so ein Makro finden?
Gibt es sowas?

 

[Mihaeru]

wo kann ich denn so ein Makro finden?
Gibt es sowas?

Am einfachsten geht das über das Aufzeichnen von Makros. Während der Aufzeichnung wählst du den gewünschten Drucker aus und wenn du nach dem Drucken die Aufzeichnung stoppst, hast du das fertige Makro. Wichtig ist, dass du für die Aufzeichnung den Drucker umstellst, also nicht den aktuell aktiven Drucker wählst, da ansonsten der Druckername nicht mit in das Makro aufgenommen wird.

Das sieht dann z.B. so aus:

Sub ColourPrint ()
'
' ColourPrint Macro
' Macro recorded by ...
'

ActivePrinter = "MyColourPrinter"

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​

End Sub