Método Application.FilePageSetupLegendEx (Project)

Cria uma legenda para visualizações de impressão de dados de tarefa, onde a cor pode ser um valor hexadecimal.

Sintaxe

expressão. FilePageSetupLegendEx (Name, TextWidth, LegendOn, Alignment, Text, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Opcional	String	O nome do modo de exibição ou relatório no qual as legendas devem ser configuradas para a impressão.
TextWidth	Opcional	Integer	A largura do texto, em polegadas ou centímetros.
LegendOn	Opcional	Long	As páginas em que a legenda será exibida. Pode ser uma das seguintes constantes PjLegend: pjNoLegend, pjAfterLastPage ou pjOnEveryPage.
Alignment	Opcional	Long	O alinhamento do texto na legenda. Pode ser uma das seguintes constantes PjAlignment: pjCenter, pjLeft ou pjRight. O valor padrão é pjCenter.
Text	Opcional	String	O texto a ser exibido na legenda. Os códigos de formato especial podem ser incluídos como parte da legenda.
LabelFontName	Opcional	String	O nome da fonte.
LabelFontSize	Opcional	Integer	O tamanho da fonte em pontos.
LabelFontBold	Opcional	Boolean	True se a fonte for negrito; Caso contrário, False.
LabelFontItalic	Opcional	Boolean	True se a fonte for itálico; Caso contrário, False.
LabelFontUnderline	Opcional	Boolean	True se a fonte estiver sublinhada; Caso contrário, False.
LabelFontColor	Opcional	Long	A cor da fonte. Pode ser um valor RGB, onde vermelho é o último byte. Por exemplo, o valor &H01FFFF é amarelo.

Formatar códigos

Formatar código	Descrição
&B	Ativa ou desativa a impressão em negrito.
&eu	Ativa ou desativa a impressão em itálico.
&U	Ativa ou desativa a impressão em sublinhado.
&""fontname""	Imprime caracteres que seguem o código de formato na fonte especificada. Por exemplo &""Arial"".
&nn	Imprime caracteres que seguem o código de formato no tamanho de fonte especificado. Use um número de dois dígitos para especificar um tamanho em pontos. Por exemplo, &08.
&P""path""	Insere a imagem especificada. Por exemplo, &P"" [Meus documentos] \Image.gif"". O termo [Meus Documentos] representa o caminho completo para a pasta Meus Documentos.
&[Date]	Imprime a data do sistema atual.
&[Hora]	Imprime a hora do sistema atual.
&[Arquivo]	Imprime o nome do arquivo.
&[Page]	Imprime o número da página.
&[Pages]	Imprime o número total de páginas no documento.
&[Project Title]	Imprime o título.
&[Empresa]	Imprime o nome da empresa.
&[Manager]	Imprime o nome do gerente.
&[Start Date]	Imprime a data de início do projeto.
&[Finish Date]	Imprime a data de término do projeto.
&[Current Date]	Imprime a data atual do projeto.
&[Status Date]	Imprime a data de status do projeto.
&[Exibir]	Imprime o nome do modo de exibição.
&[Relatório]	Imprime o nome do relatório.
&[Filter]	Imprime o nome do filtro.
&[Saved Date]	Imprime a última data salva.
&[Assunto]	Imprime o assunto.
&[Autor]	Imprime o autor.
&[Palavra-chave]	Imprime as palavras-chave.
&[Field_Name]	Imprime o valor do campo especificado com Nome_do_Campo. Se uma macro for executada em mais de um idioma, o campo especificado com Nome_do_Campo deverá usar o nome traduzido para cada idioma. Por exemplo, &[Custo Real].

Valor de retorno

Boolean

Comentários

Usar o método FilePageSetupLegendEx sem especificação de argumentos exibe a caixa de diálogo Configurar página com a guia legenda selecionada.

[!OBSERVAçãO] FilePageSetupLegendEx funciona somente com exibições de dados de tarefa.

Exemplo

O exemplo a seguir configura uma legenda para impressão.

Sub SetLegend() 
 
    Dim strLegend As String 
 
    strLegend = GetFontFormatCode("Arial") 
    strLegend = strLegend & "&BThis text will appear in the legend.&B" 
    Application.FilePageSetupLegendEx Text:=strLegend, _ 
        Alignment:=pjCenter, LegendOn:=pjOnEveryPage 
End Sub 
 
Public Function GetFontFormatCode(strFontName As String) As String 
    GetFontFormatCode = "&" & Chr(34) & strFontName & Chr(34) 
End Function

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.