Word XP bleibt bei der Verwendung von Makros zum ausdrucken hängen.

Moin Moin,

hab hier leider ein Problem mit Word 2000/XP, bis vor 3-4 tagen war eigentlich alles ok.
Word funktioniert eigentlich Problemlos, auch andere (teilweise) sehr umfangreiche Makros laufen gut und ohne Probleme, sobald ich jedoch mit dem Makro ausdrucken will, hängt sich das Word auf und kann nur noch über beenden des Prozesses geschlossen werden.
Fehlermeldung: "Der Server ist ausgelastet..." unten steht dann nur "Wechseln zu" bzw. "Wiederholen"

Ich hab natürlich schon einiges versucht:
- office neuinstalliert
- Makros neu erstellt
- Makros neu erstellt in neu angelegter normal.dot
- Drucker neu installiert
- Rechner/Drucker an/aus geschalten.

Hiermal kurz ein Scriptbeispiel wie wir ausdrucken:
Sub weiss()
'
' weiss Makro
' Makro aufgezeichnet am 10.01.2011 von user2
'
ActivePrinter = "Weiss"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2-3", PageType:= _
wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="4", PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Hoffe jemand hatte dieses Problem schonmal und kann weiterhelfen.

mfg

Copies:=1, Pages:="1",