TrapLayer.Order

Property Order As Long

The Order property returns or sets the order in which the separations print.

The following code example lists the order of the plates:

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 s 
End Sub