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