Previous Document Next Document

Object Model Reference : Classes : P : PrintPrepress : Properties : PrintPrepress.DensitometerScale


PrintPrepress.DensitometerScale

Property DensitometerScale As Boolean

Description

Member of PrintPrepress

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

VBA example

The following VBA 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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.