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