Метод Application.FilePageSetupLegend (Project)
Создает легенду для печати представлений данных задачи.
Синтаксис
expression. FilePageSetupLegend (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 | Цвет шрифта. Может быть одной константой PjColor ; см. таблицу констант PjColor . |
Коды форматирования
| Код форматирования | Описание |
|---|---|
| &B | Включает или выключает печать полужирным шрифтом. |
| &I | Включает или выключает печать курсивом. |
| &U | Включает или отключает печать подчеркивания. |
| &""fontname"" | Выводит символы, которые соответствуют коду формата указанного шрифта. Например, & "Arial"". |
| &nn | Выводит символы, которые соответствуют коду формата с указанным размером шрифта. Используйте двухзначное число, чтобы указать размер в точках. Например, &08. |
| &P""path"" | Вставляет указанное изображение. Например, &P"" [Мои документы] \Image.gif "". Термин [Мои документы] представляет полный путь к папке "Мои документы". |
| &[Дата] | Выводит текущую системную дату. |
| &[Время] | Выводит текущее системное время. |
| &[файл] | Выводит имя файла. |
| &[страница] | Выводит номер страницы. |
| &[Страницы] | Выводит общее количество страниц в документе. |
| &[Название проекта] | Выводит заголовок. |
| &[Компания] | Выводит название компании. |
| &[Диспетчер] | Выводит имя диспетчера. |
| &[дата начала] | Выводит дату начала проекта. |
| &[Дата окончания] | Выводит дату окончания проекта. |
| &[Текущая дата] | Выводит текущую дату проекта. |
| &[Дата состояния] | Выводит дату состояния проекта. |
| &[Вид] | Выводит имя представления. |
| &[Отчет] | Выводит имя отчета. |
| &[Фильтр] | Выводит имя фильтра. |
| &[Дата сохранения] | Выводит дату последнего сохранения. |
| &[тема] | Выводит тему. |
| &[Автор] | Выводит автора. |
| &[ключевое слово] | Выводит ключевое слово. |
| &[Field_Name] | Выводит значение поля, указанного Field_Name. Если макрос будет выполняться на нескольких языках, поле, указанное Field_Name , должно использовать имя, локализованное для каждого языка. Например, &[Фактические затраты]. |
Константы PjColor
| Постоянной | Постоянной |
|---|---|
| pjColorAutomatic | pjNavy |
| pjAqua | pjOlive |
| pjBlack | pjPurple |
| pjBlue | pjRed |
| pjFuchsia | pjSilver |
| pjGray | pjTeal |
| pjGreen | pjYellow |
| pjLime | pjWhite |
| pjMaroon |
Возвращаемое значение
Boolean
Примечания
При использовании метода FilePageSetupLegend без указания аргументов отображается диалоговое окно Настройка страницы с выбранной вкладкой Условные обозначения .
FilePageSetupLegend работает только с представлениями данных задачи.
Чтобы изменить легенду, в которой LabelFontColor может быть шестнадцатеричным RGB-значением, используйте метод FilePageSetupLegendEx .
Пример
В следующем примере настраивается легенда для печати.
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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.