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 WithEnd Sub