Насколько я помню, я писал это в те времена когда код из примеров в хелпе был рабочим, выдавал только названия существующих сепараций и главной моей проблемой было то, что выдавал их в стринговом виде, а мне требовалось совершать телодвижения для работы с соответствующим Color'ом. Сейчас под рукой только версии X6, X7 в которых данный код выдает названия 10 сепараций, независимо от их реального количества.
Код:
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
If .Plates(intPlateCounter).Enabled = True Then
strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr
End If
Next intPlateCounter
MsgBox strPlates
End With
End Sub
Но могу за давностью лет и ошибаться, может так оно всегда и работало.
Я для получения цветов пользовался комбинацией палитры документа и перебора объектов, а инфа из сепараций принтера нужна была только для вставленных as placeable EPS'ов и некоторых битмапов инфа о которых по другому недоступна, но виделась в окне сепараций.