Compartilhar via

Application.FilePageSetupLegendEx method (Project) (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 (Nome, Largura de Texto, LegendaOn, Alinhamento, Texto, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)

expressão Uma expressão que devolve um objeto Aplicação .

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.
LegendaOn 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 especiais 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.
&I 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"" [Os Meus Documentos] \Image.gif""". O termo [Meus Documentos] representa o caminho completo para a pasta Meus Documentos.
&[Data] Imprime a data do sistema atual.
&[Hora] Imprime a hora do sistema atual.
&[Ficheiro] Imprime o nome do arquivo.
&[Página] Imprime o número da página.
&[Páginas] Imprime o número total de páginas no documento.
&[Project Title] Imprime o título.
&[Empresa] Imprime o nome da empresa.
&[Gestor] 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.
&[Ver] Imprime o nome do modo de exibição.
&[Relatório] Imprime o nome do relatório.
&[Filtro] 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.

  • Last updated on