Application.FilePageSetupLegend-Methode (Project)

Erstellt eine Legende für das Drucken von Ansichten der Vorgangsdaten.

Syntax

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

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Optional String Der Name der Ansicht oder des Berichts, für die bzw. den Legenden für das Drucken eingerichtet werden.
TextWidth Optional Integer Die Breite des Textes in Zentimeter oder Zoll.
LegendOn Optional Long Die Seiten, auf denen die Legende angezeigt wird. Kann eine der folgenden PjLegend -Konstanten sein: PjNoLegend, PjAfterLastPage oder PjOnEveryPage.
Alignment Optional Long Die Ausrichtung des Texts in der Legende. Kann eine der folgenden PjAlignment -Konstanten sein: PjCenter, PjLeft oder PjRight. Der Standardwert ist PjCenter.
Text Optional String Der in der Legende anzuzeigende Text. Die speziellen Formatcodes können als Teil der Legende eingeschlossen werden.
LabelFontName Optional String Der Name der Schriftart.
LabelFontSize Optional Integer Der Schriftgrad in Punkt.
LabelFontBold Optional Boolean True, Wenn die Schriftart fett formatiert ist. anderenfalls False.
LabelFontItalic Optional Boolean True, Wenn die Schriftart kursiv ist. anderenfalls False.
LabelFontUnderline Optional Boolean True, Wenn die Schriftart unterstrichen ist. anderenfalls False.
LabelFontColor Optional Long Die Farbe der Schriftart. Kann eine der PjColor-Konstanten sein; weitere Informationen finden Sie in der Tabelle PjColor-Konstanten .

Formatcodes

Formatcode Beschreibung
&B Schaltet Fettdruck ein oder aus.
&I Schaltet Kursivdruck ein oder aus.
&U Schaltet Unterstreichen ein oder aus.
&""fontname"" Druckt Zeichen, die auf den Formatcode folgen, in der angegebenen Schriftart. Beispiel: &""Arial"".
&nn Prints characters that follow the format code in the specified font size. Verwenden Sie eine zweistellige Zahl zum Angeben der Größe in Punkt. Beispiel: &08.
&P""path"" Fügt das angegebene Bild ein. Beispiel: &P"" [Meine Dokumente] \Image.gif""". Der Begriff [Eigene Dokumente] stellt den vollständigen Pfad zu Ihrem Ordner "Eigene Dokumente" dar.
&[Datum] Druckt das aktuelle Systemdatum.
&[Zeit] Druckt die aktuelle Systemzeit.
&[Datei] Druckt den Dateinamen.
&[Seite] Druckt die Seitenzahl.
&[Seiten] Druckt die Gesamtanzahl der Seiten eines Dokuments.
&[Projektname] Druckt den Projektnamen.
&[Unternehmen] Druckt den Firmennamen.
&[Manager] Druckt den Namen des Managers.
&[Anfangstermin] Druckt den Projektanfangstermin.
&[Endtermin] Druckt den Projektendtermin.
&[Aktuelles Datum] Druckt das aktuelle Projektdatum.
&[Statusdatum] Druckt das Projektstatusdatum.
&[Ansicht] Druckt den Ansichtsnamen.
&[Bericht] Druckt den Berichtsnamen.
&[Filter] Druckt den Filternamen.
&[Speicherdatum] Druckt das letzte Speicherdatum.
&[Betreff] Druckt das Thema.
&[Autor] Druckt den Autor.
&[Schlüsselwort] Druckt die Schlüsselwörter.
&[Field_Name] Gibt den Wert des felds aus, das mit Field_Name angegeben wurde. Wenn ein Makro in mehreren Sprachen ausgeführt wird, muss das mit Field_Name angegebene Feld den für jede Sprache lokalisierten Namen verwenden. Beispiel: &[Tatsächliche Kosten].

PjColor-Konstanten

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

Rückgabewert

Boolesch

Bemerkungen

Bei Verwendung der FilePageSetupLegend -Methode ohne Angabe von Argumenten verwendet, wird das Dialogfeld Seite einrichten mit Auswahl der Registerkarte Legende angezeigt.

[!HINWEIS] FilePageSetupLegend funktioniert nur bei Ansichten von Vorgangsdaten.

Um eine Legende zu bearbeiten, bei der labelFontColor ein RGB-Hexadezimalwert sein kann, verwenden Sie die FilePageSetupLegendEx-Methode .

Beispiel

Im folgenden Beispiel wird eine zu druckende Legende eingerichtet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.