Object Model Reference : Classes : P : PrintPrepress : Properties : PrintPrepress.Densities
|
|
| Object Model Reference : Classes : P : PrintPrepress : Properties : PrintPrepress.Densities |
Property Densities(Index As Long) As Long
Member of PrintPrepress
The Densities property returns or specifies the density of the squares in the densitometer scale.
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.