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 sEnd Sub