Schriftart Fußzeile automatisch ändern lassen
12.10.2004 10:24:27
Bernhard
Ich hab jetzt ein schönes VBA-Skript, dass ich meine Fußzeile
Links mit Speicherpfad
Rechts mit Datum u. Uhrzeit habe
Leider formatiert mir aber das Skript den Speicherpfad
nicht auf TimesNewRoman Größe 8 sondern nur auf die Standardschriftart!!!
Vielleicht hat ja jemand einen rettenden Tip!!?
thx a lot
Bernhard
Ps.: Ach ja hier der wohl entscheidende Auszug aus dem Skript:
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ActiveWorkbook.FullName
.CenterFooter = ""
.RightFooter = "&8&T" & Chr(10) & "&D"
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100