FindPlateByInkName Method [Publisher 2003 VBA Language Reference]

As it applies to the PrintablePlates object.

Returns a PrintablePlate object that represents the printable plate of the specified ink name.

expression.FindPlateByInkName(InkName)

expression Required. An expression that returns an AdvancedPrintOptions object.

PbInkName

Remarks

Process colors are assigned different index numbers in the Plates collection than in the PrintablePlates collection. Use the FindPlateByInkName method to insure the desired Plate or PrintablePlate object is accessed.

The PrintablePlates collection is generated when a publication's print mode is set to separations. Returns "Permission Denied" when any other print mode is specified.

The PrintablePlates collection represents the plates that will actually be printed for the publication, based on:

• The plates (if any) you have defined for the publication.
• The advanced print options specified.

As it applies to the Plates object.

Returns a Plate object that represents the plate of the specified ink name.

expression.FindPlateByInkName(InkName)

expression Required. An expression that returns one of the objects in the Applies To list.

PbInkName

Remarks

Process colors are assigned different index numbers in the Plates collection than in the PrintablePlates collection. Use the FindPlateByInkName method to insure the desired Plate or PrintablePlate object is accessed.

Example

As it applies to the PrintablePlates object.

The following example returns a spot color plate and sets several of its properties. The example assumes that separations have been specified as the active publication's print mode.

Sub SetPlatePropertiesByInkName()

Dim pplPlate As PrintablePlate
ActiveDocument.AdvancedPrintOptions.UseCustomHalftone = True

    Set pplPlate = ActiveDocument.AdvancedPrintOptions.PrintablePlates.FindPlateByInkName(pbInkNameSpot3)
    
    With pplPlate
        .Angle = 75
        .Frequency = 133
        .PrintPlate = True
    End With

End Sub

As it applies to the Plates object.

The following example returns properties for the plate representing the third spot color defined for the active publication.

Sub ListPlatePropertiesByInkName()
Dim pplPlate As Plate

    Set pplPlate = ActiveDocument.Plates.FindPlateByInkName(pbInkNameSpot3)
    
    With pplPlate
            Debug.Print "Plate Name: " & .Name
            Debug.Print "Index: " & .Index
            Debug.Print "Ink Name: " & .InkName
            Debug.Print "Color: " & .Color
            Debug.Print "Luminance: " & .Luminance
            Debug.Print "In Use?: " & .InUse
    End With
End Sub

Applies to | Plates Collection | PrintablePlates Collection