Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formatierung Kopfzeile bei Ausdruck

Formatierung Kopfzeile bei Ausdruck
02.10.2003 08:18:10
Erich M.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung Kopfzeile bei Ausdruck
02.10.2003 08:48:32
Hans W. Herber
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
DANKE! - perfekt!! o.T.
02.10.2003 08:59:17
Erich M.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige