Returns the number of color separation plates available for this document
Syntax:
Property Get Count() As Long
Remarks:
The Count property returns a read-only value that is associated with the number of items in a SeparationPlates collection.
Examples:
The following VBA example displays the number of plates in the collection.
Sub Test()
Select Case ActiveDocument.PrintSettings.Separations.Plates.Count
  Case 0

 MsgBox "There are no plates to print"
  Case 1

 MsgBox "There's 1 plate to print"
  Case Else

 MsgBox "There are " & _


ActiveDocument.PrintSettings.Separations.Plates.Count & _


" plates to print"
End Select 
End Sub