Ränder der Kopf- bzw. Fusszeilen verschieben

Forumthread: Ränder der Kopf- bzw. Fusszeilen verschieben

11.10.2004 07:18:15

Hermann

Hallo Zusammen,
wie kann ich die Seitenränder der Kopf- bzw. Fusszeile eines Excel-Ausdruckes nach aussen verschieben. Die Seitenränder des Datenteils lassen sich problemlos verändern, Schwierigkeiten machen Kopf- und Fusszeile.
Vielen Dank für Euere Hilfe.
Gruss Hermann
P.S. Ich grüsse auch die Formalfetischisten unter Euch.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ränder der Kopf- bzw. Fusszeilen verschieben

Oberschlumpf

Hi Herrmann
Hier...auf die Schnelle (ich muss leider weg)
Folgendes hab ich mit dem Makro-Recorder aufgezeichnet:


Sub Makro1()
' Makro1 Makro
' Makro am 11.10.2004 von xy aufgezeichnet
ActiveWindow.SelectedSheets.PrintPreview
ActiveCell.FormulaR1C1 = "llkjlkj"
Range("A2").Select
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints(0.09)
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = 4071
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.07)
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints(0.5)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints(0.03)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints(0.1)
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints()
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints()
.RightMargin = Application.InchesToPoints()
.TopMargin = Application.InchesToPoints(0.14)
.BottomMargin = Application.InchesToPoints()
.HeaderMargin = Application.InchesToPoints()
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = -4544
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Du kannst Dir ja das gewünschte raussuchen.
Hoffe, dass ich helfen konnte?
Bye
Thorsten

AW: Ränder der Kopf- bzw. Fusszeilen verschieben

Hermann

Hallo Thorsten,
vielen Dank für Deine Hilfe.
Gruss Hermann

Beliebteste Forumthreads (12 Monate)

Ränder der Kopf- bzw. Fusszeilen verschieben

Forumthread: Ränder der Kopf- bzw. Fusszeilen verschieben

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread