PrintSettings.Copies

Property Copies As Long

The Copies property returns or sets the number of copies of a document to be printed. You can ensure that the pages of the document print together by setting the Collate property.

The following code example creates a new document containing two pages. It adds the page number to each page and then prints three collated copies of the document.

Sub Test() 
 Dim doc As Document 
 Dim page As page 
 Set doc = CreateDocument 
 With doc 
  .AddPages 2 
  For Each page In .Pages 
   page.ActiveLayer.CreateArtisticText page.SizeWidth / 2, 
page.SizeHeight / 2, "This is page " & page.Index 
  Next page 
  .PrintSettings.Copies = 3 
  .PrintSettings.Collate = True 
  .PrintOut 
 End With 
End Sub