[charli_]

vielleicht hilft

Ab Word2000 (glaubich) gibt's den VBA-Befehl ActivePrinter. Um an das folgende Makro zu kommen, habe ich Word ohne Normal.dot gestartet (Start > Ausführen > Winword.exe /a), weil bei mir (2002) der Word-Befehl umdefiniert wurde (was ich Dir auch empfehlen werde), und folgendes Makro aufgezeichnet — bitte nicht in die Normal.dot, sonst würde die echte überschrieben, sondern immer nur in das aktuelle Dokument1. (Diese Methode hat außerdem den Vorteil, daß man den Makrocode in die Zwischenablage nimmt und alles andere rückstandsfrei durch Schließen von Word ohne zu speichern löschen kann.) Das Makro:
Code:
Sub Makro1()
' Makro1 Makro
' Makro aufgezeichnet am 25.06.2011
ActivePrinter = "Canon MG5200"
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

Wie bereits erwähnt würde ich empfehlen, den Word-Befehl zu erweitern durch eine Abfrage. Dazu muß man einfach ein Makro namens FilePrint in einem Standardmodul in der Normal.dot anlegen. Word führt dann beim Klicken auf das Drucker-Icon und bei Auswahl des Menübefehls dieses Makro aus. Super-komfortable Sache.