Sub Test() Dim intCounter As Integer Dim s As String s = "Color - Order" & vbCr & vbCr With ActiveDocument.PrintSettings.Trapping.Layers For intCounter = 1 To .Count - 1 s = s & .Item(intCounter).Color & " - " & .Item(intCounter).Order & vbCr Next intCounter End With MsgBox sEnd Sub