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 WithEnd Sub