nathanfreemoser
Goto Top

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

Content-Key: 220608

Url: https://administrator.de/contentid/220608

Printed on: April 20, 2024 at 01:04 o'clock

Member: Pjordorf
Pjordorf Oct 28, 2013 at 11:31:07 (UTC)
Goto Top
Hallo,

Zitat von @NathanFreemoser:
hab hier leider ein Problem mit Word 2000/XP, bis vor 3-4 tagen war eigentlich alles ok.
Was wurde geändert bevor es nicht mehr ging? (Das ist keine Scherzfrage).
Auf welche OSe läuft dein Office 2000/XP fehlerfrei bzw. mit Fehler?

jedoch mit dem Makro ausdrucken will, hängt sich das Word auf
Oder läuft da eine Endlosschleife?

Fehlermeldung: "Der Server ist ausgelastet..." unten steht dann nur "Wechseln zu" bzw. "Wiederholen"
Genaue Fehlermeldung bitte. Mit deinen Meldungen kann niemand einen Blumentopf auf einer Kirmes gewinnen.

- Makros neu erstellt
Wirklich? Dein gepostetes Makro ist von 2011!

Hiermal kurz ein Scriptbeispiel wie wir ausdrucken:
Mal das Makro im VBA Editor im Einzelschritt durchgetackert? Wo belibt es stehen und warum? Bleibt es überhaupt stehen? (Werde mir zum Testen kein Office 2000 auf Win 8 pappen)

Gruß,
Peter
Member: NathanFreemoser
NathanFreemoser Oct 28, 2013 at 11:36:46 (UTC)
Goto Top
Zitat von @Pjordorf:
Hallo,

> Zitat von @NathanFreemoser:
> hab hier leider ein Problem mit Word 2000/XP, bis vor 3-4 tagen war eigentlich alles ok.
Was wurde geändert bevor es nicht mehr ging? (Das ist keine Scherzfrage).
Auf welche OSe läuft dein Office 2000/XP fehlerfrei bzw. mit Fehler?


Laut Kollegen wurde nix verändert...
Windows 7 - 32bit

> jedoch mit dem Makro ausdrucken will, hängt sich das Word auf
Oder läuft da eine Endlosschleife?


Könnte sein.
> Fehlermeldung: "Der Server ist ausgelastet..." unten steht dann nur "Wechseln zu" bzw.
"Wiederholen"
Genaue Fehlermeldung bitte. Mit deinen Meldungen kann niemand einen Blumentopf auf einer Kirmes gewinnen.


Server ist ausgelastet:
Dieser Vorgang kann nicht ausgeführt werden, da das "Dokument1 - Microsoft Word"-Programm nicht reagiert. Klicken Sie auf "Wechseln zu", und beheben Sie das Problem.


> - Makros neu erstellt
Wirklich? Dein gepostetes Makro ist von 2011!

Ja, ich dachte mir ein "echtes" und kein Probeweise erstelltes ist besser.
> Hiermal kurz ein Scriptbeispiel wie wir ausdrucken:
Mal das Makro im VBA Editor im Einzelschritt durchgetackert? Wo belibt es stehen und warum? Bleibt es überhaupt stehen?
Einzelschritt bleibt genau bei dem Punkt:
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
hängen, danach geht nix mehr.
(Werde mir zum Testen kein Office 2000 auf Win 8 pappen)
Mitglied: 106543
106543 Oct 28, 2013 at 12:04:12 (UTC)
Goto Top
Hi,

Copies:=1, Pages:="1",   
wieso steht der eine Wert in Anführungszeichen und der Andere nicht ?

Grüße
Exze
Member: NathanFreemoser
NathanFreemoser Oct 29, 2013 at 13:31:17 (UTC)
Goto Top
Naja ich hab es ja nicht vie Hand geschrieben sondern nur aufgezeichnet, das hat Word verbrochen face-smile