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.PrintOutEnd Sub