PrintPrepress.DensitometerScale

Property DensitometerScale As Boolean

The DensitometerScale property returns or sets whether a densitometer scale is printed in the document.

The following code example creates a new document containing four shapes of a different color. It sets the density of the second square in the densitometer scale to 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