Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "Some Text String") s.Fill.UniformColor.RGBAssign 255, 0, 0 With ActiveDocument.PrintSettings.Options .PrintText = True .TextInBlack = True End With ActiveDocument.PrintOutEnd Sub