To print specified Sections, simply supply the Section #s to the print dialogue, prefixed by 's'. For example, to print Sections 1, 2, 4, 5, 6, 7 & 9, you might input "s1-s2,s4-s7,s9" in the print dialogue, thus:
Code:
With Dialogs(wdDialogFilePrint)
.Background = True
.Pages = "s1-s2,s4-s7,s9"
.Execute
End With
to print the document without even displaying the dialogue.
For further info on printing nominated ranges across Sections, see:
https://support.microsoft.com/en-au/...d-in-word-2003