Supportnet / Forum / Textverarbeitung

Soll-Funktion: Erst werden alle ungeraden Seiten gedruckt und nach Aufforderung die geraden Seiten. Mein Makro funktioniert im Einzelschritt wunderbar. Im Normalbetrieb bekomme ich den Ausdruck erst nach Bedienung der Msgbox. Kann mir das jemand erklären? Sub Doppelseitiger_Ausdruck() ' 'Makro: Doppelseitiger Ausdruck '03.Jul1 2003 Brandstädter ' Dim Seiten As Integer Dim anzahl_ungerade As Integer Dim OK As Integer Dim AktDok As Document Set AktDok = ActiveDocument 'Aktives Dokument merken On Error Resume Next 'leere Eigenschaften liefert Fehler, deswegen so Seiten = AktDok.BuiltInDocumentProperties("Number of pages").Value ' Options.PrintReverse = False 'Je nach Drucker AktDok.PrintOut PageType:=wdPrintOddPagesOnly 'Druckt ungerade Seiten If Seiten = 1 Then End OK = MsgBox("Seiten umgedreht einlegen!", vbOKCancel, "Doppelseitiger Ausdruck") If OK <> "1" Then End 'Abbruch bei nicht OK anzahl_ungerade = Seiten Mod 2 'Seitenanzahl ungerade? If anzahl_ungerade = 1 Then Documents.Add Application.PrintOut 'Drucke Leerseite ActiveDocument.Close End If ' Options.PrintReverse = True 'Je nach Drucker AktDok.PrintOut PageType:=wdPrintEvenPagesOnly 'Druckt gerade Seiten End Sub

Geht das nicht auch ohne Makro? Ich meine, dass im Fenster "Drucken" diese Option angeboten wird. Da gibt es den Punkt "Druckauswahl" mit einer DropDown-Liste. Hier kann das gesamte Dokument, ungerade und auch gerade Seiten ausgewählt werden.
Kann aber auch sein, dass das nur bei meinem WordXP so ist und ältere Versionen dies noch nicht können. Könnte aber auch in Zusammenhang mit dem verwendeten Druckertreiber stehen.