Sub Test() With ActiveDocument.PrintSettings With .Trapping If .Enabled = True Then MsgBox "Print trapping is currently enabled" Else MsgBox "Print trapping is currently disabled" End If End With .ShowDialog End WithEnd Sub