Returns the number of in-RIP trapping layers
Syntax:
Property Get Count() As Long
Remarks:
The Count property returns a read-only number consisting of the number of items in a TrapLayers collection.
Examples:
The following VBA example displays the number of items in the collection.
Sub Test()
With ActiveDocument
  With .PrintSettings.Trapping.Layers

 MsgBox "There are " & .Count & " trap layers in the collection."
  End With
End With 
End Sub