Word VBA bestimmte Seiten drucken / nicht drucken?
Moin zusammen,
folgendes Problem :
ich habe ein 8 Seiten langes Dokument. Seite 1 und 8 sollen immer gedruckt werden.
Bei den anderen Seiten ist es davon abhängig, welche ToggleButtons in der Userform vorab auf TRUE gestellt wurden.
Button1 = Seite 2, 3
Button2 = Seite 4, 5
Button3 = Seite 6, 7
Also auch zum Beipsiel:
Button1 + Button2 = True, Button3 = False --> Seite 2, 3, 4, 5 sollen gedruckt werden.
Da alle möglichen Fälle einzeln zu programmieren sehr unübersichtlich und aufwendig ist, wollte ich mal fragen, ob einer von euch eine einfacherer Lösung kennt.
Danke schonmal ^^
3 Antworten
![](https://images.gutefrage.net/media/user/Albin1990/1619368105569_nmmslarge__0_47_207_207_0c1a7e68229fcee08c89121562deac97.jpg?v=1619368106000)
Hallo
Befehl zum Drucken: printout
Sub SeiteDrucken()
Dim Seite As Byte
'Einzelne Seiten drucken
ActiveDocument.PrintOut Pages:="1,8"
'Z.B. mit Toggle button:
If UserForm1.ToggleButton1.Value = True Then
ActiveDocument.PrintOut Pages:="1-3,8"
End if
'sonst probiers mit ToggleButton.enabled = True
End sub
Den Code würd ich dann in der Userform ausführen.
![](https://images.gutefrage.net/media/user/Oubyi/1652363895285_nmmslarge__0_0_120_120_040779a85bcf89fd282fa9af46f30da0.png?v=1652363895000)
Ich kenne mich leider nur mit VBA für Excel aus, aber im Prinzip müsste das doch mit einfachen Bedingungen funktionieren:
page1 print
If Button1 = true
page2 print
page3 print
End If
If Button2 = true
page4 print
page5 print
End If
If Button3 = true
page6 print
page7 print
End If
page8 print
Hilft Dir das vielleicht schon weiter?
![](https://images.gutefrage.net/media/default/user/8_nmmslarge.png?v=1551279448000)
Ich würde die Liste der ausgewählten Seiten in ein Array abspeichern und im printerdialog diese Seiten ansprechen oder in einer Schleife jede dieser Seiten separat ausdrucken.