Color.RegistrationAssign method - Developer Area

API Documentation > CorelDRAW > 2022-v24.1 > Color > IVGColor

Color.RegistrationAssign method

Assigns the Registration color model

Syntax:

Sub RegistrationAssign()

Remarks:

The RegistrationAssign method sssigns the registration color model, which allows color trapping in CorelDRAW. Color trapping is necessary to compensate for poor color registration that occurs when the printing plates used to print each color, called color separations, are not aligned perfectly. Poor registration causes unintentional white slivers to appear between adjoining colors. Trapping is accomplished by intentionally overlapping colors so that minor problems with alignment are not noticed.

Color trapping is achieved by overprinting. Usually, portions of an object that are obscured by another object are not printed. However, if the top object is set to overprint, the obscured portions of any underlying objects print anyway, causing an overlap. This makes white gaps between different colors unlikely. Overprinting works best when the top color is much darker than the underlying color; otherwise, an undesirable third color may result (for example, red over yellow may result in an orange object).

Examples:

The following VBA example builds crop marks around selected objects and sets their outline color to the registration color.

Sub Test()
  Const Offset As Double = 1 ' Crop mark offset
  Const Length As Double = 5 ' Crop mark length
  Dim s As Shape
  Dim r As New ShapeRange
  Dim lyr As Layer
  Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
  Set s = ActiveSelection
  Set lyr = ActiveDocument.ActiveLayer
  ActiveDocument.Unit = cdrMillimeter
  ActiveDocument.ReferencePoint = cdrTopLeft
  x1 = s.PositionX
  y1 = s.PositionY
  ActiveDocument.ReferencePoint = cdrBottomRight
  x2 = s.PositionX
  y2 = s.PositionY
  r.Add lyr.CreateLineSegment(x1 - Length - Offset, y1, x1 - Offset, y1)
  r.Add lyr.CreateLineSegment(x1, y1 + Length + Offset, x1, y1 + Offset)
  r.Add lyr.CreateLineSegment(x2 + Offset, y1, x2 + Length + Offset, y1)
  r.Add lyr.CreateLineSegment(x2, y1 + Length + Offset, x2, y1 + Offset)
  r.Add lyr.CreateLineSegment(x1 - Length - Offset, y2, x1 - Offset, y2)
  r.Add lyr.CreateLineSegment(x1, y2 - Length - Offset, x1, y2 - Offset)
  r.Add lyr.CreateLineSegment(x2 + Offset, y2, x2 + Length + Offset, y2)
  r.Add lyr.CreateLineSegment(x2, y2 - Length - Offset, x2, y2 - Offset)
  For Each s In r
    s.Outline.Width = 0.1
    s.Outline.Color.RegistrationAssign
  Next s
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25