InUse Property

Microsoft Publisher Visual Basic

InUse Property

Returns True if the specified ink (represented by the plate) is used in the publication. Read-only Boolean.

expression.InUse

expression    Required. An expression that returns a Plate object.

Remarks

This property corresponds to the In Use or Not In Use notation listed by each ink on the Ink tab of the Color Printing dialog box.

Example

The following example loops through the active publication's plates collection, determines which plates represent inks that are not used in the publication, and deletes them.

    Sub DeleteUnusedInks()
    
Dim intCount As Integer
    
With ActiveDocument.Plates
    For intCount = .Count To 1 Step -1
        With .Item(intCount)
            If .InUse = False Then
                Debug.Print "Name: " & .Name
                .Delete
            End If
        End With
    Next
End With

End Sub