Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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