Makrot ser ut ungefär som följer:
Kod:
Private Sub CommandButton1_Click()
If TextBox1.Value = "1" Then
ActiveDocument.PrintOut , Range:=wdPrintRangeOfPages, Pages:="15"
ElseIf TextBox1.Value = "2" Then
ActiveDocument.PrintOut , Range:=wdPrintRangeOfPages, Pages:="15,16"
End If
End Sub