PrintSettings.PrintRange

Property PrintRange As PrnPrintRange

The PrintRange property specifies whether to print a full document, a page, a selection, or a range of pages. If you choose to print a range of pages, you can specify the pages to print by using the PageRange property.

The following code example creates a new document containing four pages with page numbers. It then prints pages two and four.

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