Sub Test() Dim strPlates As String Dim Plate As SeparationPlate Dim intPlateCounter As Integer With ActiveDocument.PrintSettings.Separations For intPlateCounter = 1 To .Plates.Count - 1 strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr Next intPlateCounter MsgBox strPlates End WithEnd Sub