Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. 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