Plate. InkName-Eigenschaft (Publisher)Plate.InkName property (Publisher)

Gibt eine PbInkName -Konstante zurück, die den Namen der Druckfarbe darstellt, die mit dieser Platte gedruckt werden soll.Returns a PbInkName constant that represents the name of the ink to be printed by using this plate. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. InkNameexpression.InkName

Ausdruck Eine Variable, die ein Plate -Objekt darstellt.expression A variable that represents a Plate object.

BemerkungenRemarks

Der Wert der InkName -Eigenschaft kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbInkName -Konstanten sein.The InkName property value can be one of the PbInkName constants declared in the Microsoft Publisher type library.

Verwenden Sie die FindPlateByInkName -Methode der PrintablePlates -Auflistung, um eine bestimmte Druckplatte unter Verweis auf ihren Druckfarbennamen zurückzugeben.Use the FindPlateByInkName method of the PrintablePlates collection to return a specific plate by referencing its ink name.

BeispielExample

Das folgende Beispiel gibt eine Liste der druckbaren Druckplatten zurück, die derzeit in der Auflistung für die aktive Publikation enthalten sind.The following example returns a list of the printable plates currently in the collection for the active publication. Dabei wird davon ausgegangen, dass Farbauszüge als Druckmodus für die aktive Publikation angegeben wurden.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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.