Object Model Reference : Classes : P : PrintPrepress : Properties : PrintPrepress.ColorCalibrationBar
|
|
| Object Model Reference : Classes : P : PrintPrepress : Properties : PrintPrepress.ColorCalibrationBar |
Property ColorCalibrationBar As Boolean
Member of PrintPrepress
The ColorCalibrationBar property determines whether to print a color-calibration bar. When set to True, this property prints a bar of six basic colors.
The following VBA example creates a new document containing four rectangles. Each rectangle is filled with a different color (cyan, magenta, yellow, or black). A calibration bar is added, and then the document is printed.
Sub PrePressColorCalibrationBar() |
Dim doc As Document |
Dim s As Shape |
Set doc = CreateDocument |
Set s = ActiveLayer.CreateRectangle(0.667008, 10.302205, 2.906378, 8.062835, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 |
s.Outline.Type = cdrNoOutline |
Set s = ActiveLayer.CreateRectangle(4.77252, 10.351969, 6.987008, 8.13748, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 |
s.Outline.Type = cdrNoOutline |
Set s = ActiveLayer.CreateRectangle(0.990472, 6.569921, 3.105433, 4.454961, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 |
s.Outline.Type = cdrNoOutline |
Set s = ActiveLayer.CreateRectangle(4.872047, 6.81874, 7.01189, 4.678898, 0, 0, 0, 0) |
s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100 |
s.Outline.Type = cdrNoOutline |
With doc |
With .PrintSettings |
.Options.MarksToPage = True |
.Prepress.ColorCalibrationBar = True |
End With |
.PrintOut |
End With |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.