Project) (Application.FilePageSetupLegendEx 方法
會建立圖例，以列印任務資料的檢視，其中的色彩可以是十六進位值。
語法
表達式。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 。 |
| Text | 選用 | 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“” | Inserts the specified image. 例如，&P“” [My Documents] \Image.gif“”。 [My Documents] 一詞代表 [我的文件] 資料夾的完整路徑。 |
| &[日期] | 列印目前的系統日期。 |
| &[Time] | 列印目前的系統時間。 |
| &[檔案] | 列印檔案名稱。 |
| &[Page] | 列印頁碼。 |
| &[Pages] | 列印文件的總頁數。 |
| &[Project Title] | 列印標題。 |
| &[公司] | 列印公司名稱。 |
| &[Manager] | 列印經理名稱。 |
| &[Start Date] | 列印專案開始日期。 |
| &[Finish Date] | 列印專案完成日期。 |
| &[Current Date] | 列印專案目前日期。 |
| &[Status Date] | 列印專案狀態日期。 |
| &[檢視] | 列印檢視名稱。 |
| &[報表] | 列印報表名稱。 |
| &[篩選] | 列印篩選器名稱。 |
| &[Saved Date] | 列印最後儲存日期。 |
| &[Subject] | 列印主旨。 |
| &[作者] | 列印作者。 |
| &[關鍵詞] | 列印關鍵字。 |
| &[Field_Name] | 列印以 Field_Name 指定的欄位值。 如果將使用一種以上的語言執行巨集，則以 Field_Name 指定的欄位必須使用對應語言本地化後的名稱。 例如，&[實際成本]。 |
傳回值
布林值
註解
使用 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 支援與意見反應。