Метод Application.FilePageSetupLegendEx (Project)

Статья
04/07/2023

Создает условные обозначения для печати представлений данных задачи, где цвет может быть шестнадцатеричным значением.

Синтаксис

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

Выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Необязательно заполнять.	String	Имя представления или отчета, для которого необходимо настроить условные обозначения для печати.
TextWidth	Необязательный	Integer	Ширина текста в дюймах или сантиметрах.
LegendOn	Необязательный	Long	Страницы, на которых отображается легенда. Может быть одной из следующих констант PjLegend : pjNoLegend, pjAfterLastPage или pjOnEveryPage.
Alignment	Необязательный	Long	Выравнивание текста в условных обозначениях. Может быть одной из следующих констант PjAlignment : pjLeft, pjCenter или pjRight. Значение по умолчанию — pjCenter.
Текст	Необязательный	String	Текст, отображаемый в условных обозначениях. Коды специальных форматов можно включить в условные обозначения.
LabelFontName	Необязательный	String	Имя шрифта.
LabelFontSize	Необязательный	Integer	Размер шрифта в точках.
LabelFontBold	Необязательный	Логический	Значение true , если шрифт выделен полужирным шрифтом; в противном случае — False.
LabelFontItalic	Необязательный	Логический	Значение true , если шрифт является курсивом; в противном случае — False.
LabelFontUnderline	Необязательный	Логический	Значение true , если шрифт подчеркнут; в противном случае — False.
LabelFontColor	Необязательный	Long	Цвет шрифта. Может быть шестнадцатеричным rgb-значением, где красный — последний байт. Например, значение &H01FFFF желтое.

Коды форматирования

Код форматирования	Описание
&B	Включает или выключает печать полужирным шрифтом.
&I	Включает или выключает печать курсивом.
&U	Включает или отключает печать подчеркивания.
&""fontname""	Выводит символы, которые соответствуют коду формата указанного шрифта. Например, & "Arial"".
&nn	Выводит символы, которые соответствуют коду формата с указанным размером шрифта. Используйте двухзначное число, чтобы указать размер в точках. Например, &08.
&P""path""	Вставляет указанное изображение. Например, &P"" [Мои документы] \Image.gif "". Термин [Мои документы] представляет полный путь к папке "Мои документы".
&[Дата]	Выводит текущую системную дату.
&[Время]	Выводит текущее системное время.
&[файл]	Выводит имя файла.
&[страница]	Выводит номер страницы.
&[Страницы]	Выводит общее количество страниц в документе.
&[Название проекта]	Выводит заголовок.
&[Компания]	Выводит название компании.
&[Диспетчер]	Выводит имя диспетчера.
&[дата начала]	Выводит дату начала проекта.
&[Дата окончания]	Выводит дату окончания проекта.
&[Текущая дата]	Выводит текущую дату проекта.
&[Дата состояния]	Выводит дату состояния проекта.
&[Вид]	Выводит имя представления.
&[Отчет]	Выводит имя отчета.
&[Фильтр]	Выводит имя фильтра.
&[Дата сохранения]	Выводит дату последнего сохранения.
&[тема]	Выводит тему.
&[Автор]	Выводит автора.
&[ключевое слово]	Выводит ключевое слово.
&[Field_Name]	Выводит значение поля, указанного Field_Name. Если макрос будет выполняться на нескольких языках, поле, указанное Field_Name , должно использовать имя, локализованное для каждого языка. Например, &[Фактические затраты].

Возвращаемое значение

Boolean

Примечания

При использовании метода FilePageSetupLegendEx без указания аргументов отображается диалоговое окно Настройка страницы с выбранной вкладкой Условные обозначения .

FilePageSetupLegendEx работает только с представлениями данных задачи.

Пример

В следующем примере настраивается легенда для печати.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через