Sub Test() With ActiveDocument With .PrintSettings.Trapping.Layers MsgBox "There are " & .Count & " trap layers in the collection." End With End WithEnd Sub