Herbers Excel-Forum - das Archiv
Formatierung Kopfzeile bei Ausdruck
- Formatierung Kopfzeile bei Ausdruck von Erich M. vom 02.10.2003 08:18:10
- AW: Formatierung Kopfzeile bei Ausdruck - von Hans W. Herber am 02.10.2003 08:48:32
- DANKE! - perfekt!! o.T. - von Erich M. am 02.10.2003 08:59:17
- DANKE! - perfekt!! o.T. - von Erich M. am 02.10.2003 08:59:17
- AW: Formatierung Kopfzeile bei Ausdruck - von Hans W. Herber am 02.10.2003 08:48:32
 |
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
 |
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
|
Betrifft: DANKE! - perfekt!! o.T.
von: Erich M.
Geschrieben am: 02.10.2003 08:59:17
.
| |