Butonla çıktı almak

[unur]

Merhaba;

Arkadaşlar, Excelde olduğu gibi Word de butona kod yazarak çıktı alabilirmiyiz.
Ancak 1,2 sayfadan 1 adet 3,4,5 sayfalar 3 er adet çıktı alabileceğimiz bir kod lazım.

Teşekkürler.

 

[Mehmet Şahin]

Merhabalar,
aşağıdaki kodu denermisiniz,
iyi çalışmalar.

Private Sub CommandButton1_Click()
ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, From:="1", To:="2", copies:=1
ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, From:="3", To:="5", copies:=3
End Sub