Share via


InkName Property [Publisher 2003 VBA Language Reference]

PbInkName

PbInkName can be one of these pbInkName constants.
pbInkNameBlack
pbInkNameCyan
pbInkNameMagenta
pbInkNameYellow
pbInkNameSpotColor1
pbInkNameSpotColor2
pbInkNameSpotColor3
pbInkNameSpotColor4
pbInkNameSpotColor5
pbInkNameSpotColor6
pbInkNameSpotColor7
pbInkNameSpotColor8
pbInkNameSpotColor9
pbInkNameSpotColor10
pbInkNameSpotColor11
pbInkNameSpotColor12

expression.InkName

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

Remarks

Use the FindPlateByInkName method of the PrintablePlates collection to return a specific plate by referencing its ink name.

Example

The following example returns a list of the printable plates currently in the collection for the active publication. The example assumes that separations have been specified as the active publication's print mode.

Sub ListPrintablePlates()
    Dim pplTemp As PrintablePlates
    Dim pplLoop As PrintablePlate
    

    Set pplTemp = ActiveDocument.AdvancedPrintOptions.PrintablePlates
    Debug.Print "There are " & pplTemp.Count & " printable plates in this publication."
    
    For Each pplLoop In pplTemp
        With pplLoop
            Debug.Print "Printable Plate Name: " & .Name
            Debug.Print "Index: " & .Index
            Debug.Print "Ink Name: " & .InkName
            Debug.Print "Plate Angle: " & .Angle
            Debug.Print "Plate Frequency: " & .Frequency
            Debug.Print "Print Plate?: " & .PrintPlate
        End With
    Next pplLoop
End Sub

Applies to | Plate Object | PrintablePlate Object