Método Application.FilePageSetupLegend (Project)

Cria uma legenda para visualizações de impressão de dados de tarefa.

Sintaxe

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

expressão Uma variável que representa um Aplicativo objeto.

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 uma das constantes PjColor ; consulte a tabela constantes PjColor .

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].

Constantes PjColor

Constante	Constante
pjColorAutomatic	pjNavy
pjAqua	pjOlive
pjBlack	pjPurple
pjBlue	pjRed
pjFuchsia	pjSilver
pjGray	pjTeal
pjGreen	pjYellow
pjLime	pjWhite
pjMaroon

Valor de retorno

Booliano

Comentários

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

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

Para editar uma legenda em que o LabelFontColor pode ser um valor hexadecimal RGB, use o método FilePageSetupLegendEx .

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.FilePageSetupLegend 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.