Sub Test() MsgBox "Fountain fills will print using " & _ ActiveDocument.PrintSettings.Options.FountainSteps & " steps." ActiveDocument.PrintSettings.Options.FountainSteps = 256 MsgBox "Fountain fills will now print using " & _ ActiveDocument.PrintSettings.Options.FountainSteps & " steps."End Sub