AW: siehe zutreffenden Thread
02.09.2008 10:24:00
fcs
Hallo Oblivion,
Falls du den Text in der Kopf oder Fusszeile mehrzeilig+mehrspaltig aufbauen willst, dann geht das am einfachsten wenn die Textteile in separaten Zellen stehen.
Beispielcode (Ergänzung für den Kopftext):
'2. Zeile Beginnen
strKopftext = strKopftext & Chr$(10) 'Chr$(10) ist Zeichen für eine Zeilenschaltung
strKopftext = strKopftext & Fusstext(Text:=.Range("A3").Text, Laenge:=25, bolVor:=False)
'3. Zeile Beginnen
strKopftext = strKopftext & Chr$(10)
strKopftext = strKopftext & Fusstext(Text:=.Range("A4").Text, Laenge:=25, bolVor:=False)
Für den Rahmen gibt es keinen Standard-Befehl.
Mit viel Fummelarbeit kannst du versuchen, eine Grafik im mittleren Kopf-/Fusstext einzufügen, die ein durchsichtiges (nicht gefülltes) Rechtechteck enthält oder auch eine Horizontallinie. Diese Grafik kannst du z.B. mit MS-Paint erstellen und im GIF-Format speichern.
Wenn du mit der max. Zeichenzahl von 255 für die Kopf-/Fusszeile nicht in Probleme kommst, dann kannst du eine Trennlinie auch mit Schriftzeichen erzeugen (Zeichen _ für Kopfzeile, ¯ (ANSI-Zeichen 0175) für Fusszeile).
Entsprechende Code-Ergänzungen
für Kopfzeile als letzter Text:
'Trennlinie
strKopftext = strKopftext chr$(10) & String(81, "¯")
für Fusszeile als erster text nach Font definition
strFusstext = strFusstext & String(91, "_") & Chr$(10)
Gruß
Franz