Das Archiv des Excel-Forums

Formatierung Kopfzeile bei Ausdruck

Bild

Betrifft: Formatierung Kopfzeile bei Ausdruck
von: Erich M.

Geschrieben am: 02.10.2003 08:18:10

Hallo zusammen,

mit Hilfe des Forums habe ich für die Kopf- und Fusszeilen beim Ausdruck
folgendes makro entwickelt, das auch funktioniert:


Sub Druck_Markierung()
' Druck_Markierung Makro
Dim sDate As String
sDate = Format(Date, "dd. mm. yyyy")
With ActiveSheet.PageSetup
.LeftHeader = "Ausdruck am: " & sDate
.CenterHeader = "Datei: &F"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N Seiten"
.RightFooter = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("A2").Select
End Sub


Wie kann ich nun den Text "Ausdruck am:" wie folgt formatieren:
- ARIAL - Schrift
- Schriftgröße 14
- Fett

Besten Dank für eine Hilfe!

mfg
Erich
Bild


Betrifft: AW: Formatierung Kopfzeile bei Ausdruck
von: Hans W. Herber
Geschrieben am: 02.10.2003 08:48:32

Hallo Erich,

wie folgt:


Sub Druck_Markierung()
Dim sDate As String, sPrint As String
sDate = Format(Date, "dd. mm. yyyy")
sPrint = "&""Arial,Fett""&14Ausdruck am: &""Arial,Standard""&10 "
With ActiveSheet.PageSetup
.LeftHeader = sPrint & sDate
.CenterHeader = "Datei: &F"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N Seiten"
.RightFooter = ""
End With
Selection.PrintOut Copies:=1, Collate:=True
Range("A2").Select
End Sub


hans


Bild


Betrifft: DANKE! - perfekt!! o.T.
von: Erich M.
Geschrieben am: 02.10.2003 08:59:17

.


 Bild

Excel-Beispiele zum Thema " Formatierung Kopfzeile bei Ausdruck"

Automatische Datumformatierung unterdrücken download Zahlenformatierung mit Punkt nach der 1. Ziffer download
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile download Jahreskalender und bedingte Formatierung download
Bedingte Formatierung auslesen download Über die bedingte Formatierung den Minimalwert markieren download
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download Bedingte Formatierung in Abhängigkeit eines Zellkommentars download
Markierung von Formeln über bedingte Formatierung download Zelleinträgen über die Formatierung Spaltennamen hinzufügen download
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen download Hyperlink-Formatierung bei Eingabe von Email-Adressen verhindern download
Tabellenvergleich über die bedingte Formatierung download Zahlen-Formatierungs-Dialog aus UserForm aufrufen download
Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft download Werte in Abhängigkeit zur Währungsformatierung summieren download
Bei TextBox-Eingaben Mustervergleich und Formatierung download Eine Reihe von Beispielen zum Feature "Bedingte Formatierung" download
Grafik in Kopfzeile download Kopfzeile der Zelle mit dem höchsten Wert ermitteln. download
Kopfzeile in Buchform drucken download Randeinstellung der Druck-Kopfzeile download
Änderung der Kopfzeile bei Zelleintrag download Datei- incl. Pfadname in Kopfzeile download
Seitennummer und Seitenanzahl per VBA in Kopfzeile download Verweise anhand einer Kopfzeile erkennen download
Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE() download Kopfzeile nur auf erstem Blatt drucken download
Zelleingabe automatisch in Kopfzeile übernehmen download Kopfzeile einer Autofilter-Tabelle gelb hinterlegen download
Dokumententitel und UserName in Kopfzeile übernehmen download Kopfzeilen anhand von Max/Min-Werten ermitteln download
Drucken der UserForm im Querformat mit Kopfzeile download Label in Zelle A1 bei jedem Ausdruck um 1 hochzählen download
Druckseiten und Anzahl der Ausdrucke über UserForm festlegen download