Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade Plate.InkName (Editor)Plate.InkName Property (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna uma constante PbInkName que representa o nome da tinta a ser impressa usando esta chapa. Somente leitura.Returns a PbInkName constant that represents the name of the ink to be printed using this plate. Read-only.

SintaxeSyntax

expressão. InkNameexpression. InkName

_expression_A variável que representa um objeto Plate ._expression_A variable that represents a Plate object.

ComentáriosRemarks

O valor da propriedade InkName pode ser uma do * * PbInkName* * constantes declaradas na biblioteca de tipos do Microsoft Publisher.The InkName property value can be one of the ** PbInkName** constants declared in the Microsoft Publisher type library.

Use o método FindPlateByInkName da coleção PrintablePlates para retornar uma chapa específica chamando seu nome de tinta.Use the FindPlateByInkName method of the PrintablePlates collection to return a specific plate by referencing its ink name.

ExemploExample

O exemplo a seguir retorna uma lista das chapas de impressão existentes na coleção da publicação ativa. O exemplo supõe que você especificou separações como o modo de impressão da publicação ativa.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
© 2018 Microsoft