Application.CreateRegistrationColor method - Developer Area

API Documentation > Corel DESIGNER > 2017.1 > Application > IVGApplication

Application.CreateRegistrationColor method

Creates a Registration color

Syntax:

Function CreateRegistrationColor() As Color

Remarks:

The CreateRegistrationColor method creates a registration Color object. Registration color is printed on all separation plates.

Examples:

The following VBA example creates cropmarks around one or more selected objects and assigns registration color to each of them.

Sub Test()
  Const Offset As Double = 1 ' Cropmark offset
  Const Length As Double = 5 ' Cropmark length
  Dim x As Double, y As Double, w As Double, h As Double
  Dim c As Color
  ActiveDocument.Unit = cdrMillimeter
  Set c = CreateRegistrationColor()
  ActiveSelection.GetBoundingBox x, y, w, h, True
  ActiveLayer.CreateLineSegment(x - Length - Offset, y, x - Offset, y).Outline.Color = c
  ActiveLayer.CreateLineSegment(x, y - Length - Offset, x, y - Offset).Outline.Color = c
  ActiveLayer.CreateLineSegment(x + w + Offset, y, x + w + Length + Offset, y).Outline.Color = c
  ActiveLayer.CreateLineSegment(x + w, y - Length - Offset, x + w, y - Offset).Outline.Color = c
  ActiveLayer.CreateLineSegment(x - Length - Offset, y + h, x - Offset, y + h).Outline.Color = c
  ActiveLayer.CreateLineSegment(x, y + h + Length + Offset, x, y + h + Offset).Outline.Color = c
  ActiveLayer.CreateLineSegment(x + w + Offset, y + h, x + w + Length + Offset, y + h).Outline.Color = c
  ActiveLayer.CreateLineSegment(x + w, y + h + Length + Offset, x + w, y + h + Offset).Outline.Color = c
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