PrintSeparations.EmptyPlates

Property EmptyPlates As Boolean

The EmptyPlates property determines whether all plates, including empty ones, are printed.

The following code example creates two rectangles with uniform fills. It then enables print separations and prints all four plates.

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(1.239291, 7.590079, 4.050945, 
4.778425, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(2.607795, 6.395748, 5.344803, 
3.65874, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 
 s.Outline.Type = cdrNoOutline 
 With ActiveDocument 
  With .PrintSettings 
   .Separations.Enabled = True 
   .Separations.EmptyPlates = True 
   .ShowDialog 
  End With 
 End With 
End Sub