The following VBA example creates a new document containing four pages with page numbers. It then prints the second and fourth pages.
Sub Test()
Dim doc As Document
Dim page As page
Dim DrwPrnSettings As PrintSettings
Set doc = CreateDocument
doc.AddPages 4
For Each page In doc.Pages
page.ActiveLayer.CreateArtisticText page.SizeWidth / 2, page.SizeHeight / 2, "This is page " & page.Index
Next page
Set DrwPrnSettings = ActiveDocument.PrintSettings
With DrwPrnSettings
.PrintRange = prnPageRange
.PageRange = "2,4"
End With
doc.PrintOut
End Sub