PrintPrepress.Densities

Property Densities(Index As Long) As Long

The Densities property returns or sets the density of the squares in the densitometer scale.


Parameters	Description
Index	Specifies a square in the densitometer scale

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