setting the Range and Pages arguments of the PrintOut method
Sub Main()
Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")
wdApp.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="2"
End Sub
Related examples in the same category