The following VBA example creates a new document containing four shapes of a different color. It specifies the density of the second square in the densitometer scale as 15. When the document is printed, the densitometer scale is also printed.
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 With
End Sub