PrintSeparations.AlwaysOverprintBlack

Property AlwaysOverprintBlack As Boolean

The AlwaysOverprintBlack property determines whether black is always overprinted.

The following code example creates a new document and inserts two overlapping rectangles. Uniform fills of different colors (cyan and magenta) are applied to the rectangles, and an outline of 24pt is added to the overlying rectangle. Before the document is printed, separations are enabled.

Sub Test() 
 Dim doc As Document 
 Dim s As Shape 
 Set doc = CreateDocument 
 With doc 
  Set s = .ActiveLayer.CreateRectangle(2.209685, 8.809291, 5.742913, 
6.196693, 0, 0, 0, 0) 
  s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 
  s.Outline.Type = cdrNoOutline 
  Set s = .ActiveLayer.CreateRectangle(3.578189, 7.838898, 7.285591, 
5.251181, 0, 0, 0, 0) 
  s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 
  s.Outline.Width = 0.333335 
  With .PrintSettings.Separations 
   .Enabled = True 
   .AlwaysOverprintBlack = False 
  End With 
  .PrintOut 
 End With 
End Sub