Sub Test() Dim s As String With ActiveDocument.PrintSettings.Trapping s = "Black Color Limit: " & .BlackColorLimit & vbCr s = s & "Black Density Limit: " & .BlackDensityLimit & vbCr s = s & "Sliding Trap Limit: " & .SlidingTrapLimit & vbCr s = s & "Step Limit: " & .StepLimit End With MsgBox sEnd Sub