Dokumente mit Makro drucken

Hallo zusammen,

ich brauche Hilfe.

Ich bin gerade dabei einen Makro Skript, der dazu dient Seiten aus der Datei zu Drucken, umzuschreiben.

Dieses Makro Skript hat auf Windows 7 einwandfrei funktioniert. Seit der Umstellung auf Windows 10 funktioniert dieses Skript nicht mehr, die Seiten werden nicht mehr nach der Anzahl gedruckt und teilweise auch gar nicht.

Ich wäre sehr dankbar wenn mir jemand eine Lösung geben könnte.

Vielen Dank!


Hier das Skript:

Sub Drucken()

'
' ==========================================
' Drucken mit Schleife
' erstellt 19.10.2013 /
' ==========================================
'


' Festlegung der Schleifenlänge
' Anpassung der letzten Zahl auf Anzahl der Seiten notwendig
For i = 1 To 34

' Suchen nach Textformularfeld AnzX
Selection.GoTo What:=wdGoToBookmark, Name:="Anz" & i
' Kopieren des Inhalts des Textfelds
Selection.Copy
' Zuweisung des Wertes "i" in Variable "Seite"
Seite = Str(i)
' Zuweisung des Wertes "Selection" in Variable "Anzahl"
Anzahl = Selection

' Überführung in Druckbefehlt, wenn Wert "Selection" größer Null
If Selection > 0 Then
' Festlegung der Druckparameter
' Anzahl Seiten durch Variable "Anzahl"
' Zugehörende Seite durch Variable "Seite"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=Anzahl, Pages:=Seite
End If
Next i

' Ende Skript

End Sub