Nimm einfach ein Makro auf wobei du ein leeres dokument auf dem drucker druckst... das ganze auf die Symbolleiste und fertig
z.b.
Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 15.04.2003 von PhilS
'
ActivePrinter = "\\PServ\Printer1"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub