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.

InkName    Required PbInkName. Specifies the printable plate to return.

Remarks

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.

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.

InkName    Required PbInkName. Specifies the plate to return.

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

    

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