Sub DensityTest() Dim doc As Document Dim s As Shape Set doc = CreateDocument Set s = ActiveLayer.CreateEllipse(0.766535, 9.928976, 3.180079, 7.515433, 90#, 90#, False) s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 s.Outline.Type = cdrNoOutline Set s = ActiveLayer.CreatePolygon(5.643386, 9.953858, 8.355512, 7.241732, 5, 1, 1, False, 50, 100) s.Move -0.870866, 0.174173 s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 s.Outline.Type = cdrNoOutline Set s = ActiveLayer.CreateGridBoxes(1.388583, 5.699055, 3.279606, 3.658748, 4, 3) s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 Set s = ActiveLayer.CreateRectangle(5.295039, 5.723937, 7.061654, 3.957323, 0, 0, 0, 0) s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100 s.Outline.Type = cdrNoOutline With doc With .PrintSettings .Prepress.Densities(1) = 15 .Prepress.DensitometerScale = True .Options.MarksToPage = True End With .PrintOut End WithEnd Sub