Examples:
The following code example creates a new document and adds three pages to it. It specifies that file information is to be printed, along with the job name and page numbers. As it iterates through the pages of the document, it adds text to each page and then prints the entire document.
Sub Test()
Dim doc As Document
Dim page As page
Set doc = CreateDocument
With doc
.AddPages 3
With .PrintSettings.Prepress
.FileInfo = True
.JobName = "Test of VBA methods"
.PageNumbers = True
.InfoWithinPage = True
End With
For Each page In doc.Pages
page.ActiveLayer.CreateArtisticText page.SizeWidth / 2, page.SizeHeight / 2, "This is page " & page.Index
Next page
.PrintOut
End With
End Sub