Specifies whether each color separation plate is printed in color
Syntax:
Property Get InColor() As Boolean
Property Let InColor(ByVal Value As Boolean)
Remarks:
The InColor property specifies a Boolean (True or False) value that indicates whether to print separations in color.
Examples:
The following VBA example iterates through the SystemPrinters collection until it finds the specified printer. It then enables color separations and displays the Print dialog box.
Sub Test()
Dim prn As Printer
Dim intCounter As Integer
For intCounter = 1 To Printers.Count
  Set prn = Printers.Item(intCounter)
  If prn.ColorEnabled Then

 Exit For
  End If
Next intCounter
With ActiveDocument
  With .PrintSettings

 Set .Printer = prn

 .Separations.Enabled = True

 .Separations.InColor = True

 .ShowDialog
  End With
End With 
End Sub