Application.FilePageSetupLegendEx-Methode (Project)

Erstellt eine Legende für das Drucken von Vorgangsdaten. Dabei kann die Farbe als Hexadezimalwert dargestellt werden.

Syntax

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

Ausdruck Ein Ausdruck, der ein Application-Objekt zurückgibt.

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. Dies kann ein RGB-Hexadezimalwert sein, dabei enthält das letzte Byte den Wert für Rot. Z. B. entspricht der Wert &H01FFFF Gelb.

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

Rückgabewert

Boolean

Bemerkungen

Verwenden die FilePageSetupLegendEx -Methode ohne Angabe von Argumenten wird das Dialogfeld Seite einrichten mit Auswahl der Registerkarte Legende angezeigt.

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

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

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.