Hallo,
ich habe ein Makro erstellt für die persönliche Makroarbeitsmappe, dass leider nicht richtig funkioniert.
Hoffe mir kann jemand behilflich sein.
Folgendes sollte das Makros eigentlich tun:
Seitenlayout- benutzerdefiniertes Seitenlayout- die Seitenränder ändern -- das klappt auch
Auf der Seite zentrieren - horizental -- klappt auch
Kopfzeile - Seite (da möchte ich die Seitenzahl angezeigt bekommen)-- da liegt der erste Fehler, hier fügt er mir komischerweise den Pfad ein statt die Seite
Fußzeile - Datei, Register, Datum und das Kürzel LH (möchte ich dadrin haben) -- da übernimmt er dann Seite, Datum und das Kürzel LH
der Rest des Makros funktioniert einwandfrei... (Haken weg bei Seitenrändern und die Wiederholungszeilen)
Kann mir jemand sagen wo der Fehler liegt?
Habe das Makro schon mehrmals gelöscht und neu hinterlegt, auch an einem anderen PC habe ich es versucht, finde den Fehler aber leider nicht.
Vielen Dank schon mal, anbei der Code des Makros
Sub seite()
'
' seite Makro
'
'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&9&F &A &D LH"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.433070866141732)
.HeaderMargin = Application.InchesToPoints(0.433070866141732)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub
|