Returns the color name for the in-RIP trapping layer
Syntax:
Property Get Color() As String
Remarks:
The Color property returns a read-only value consisting of the color of a plate.
Examples:
The following VBA example displays a list of colors for trap layers.
Sub Test()
Dim intCounter As Integer
Dim s As String
With ActiveDocument.PrintSettings.Trapping
  For intCounter = 1 To .Layers.Count - 1

 s = s & .Layers.Item(intCounter).Color & vbCr
  Next intCounter
End With
MsgBox s 
End Sub