Sub Test() With ActiveDocument.PrintSettings.Trapping MsgBox "The current value for color scaling is: " & .ColorScaling End WithEnd Sub