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