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