SeparationPlates.Count

Property Count As Long

The Count property returns the number of items in the collection.

The Count property returns a read-only value.

The following code 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