Anzeige
Archiv - Navigation
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ränder der Kopf- bzw. Fusszeilen verschieben

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.

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: Ränder der Kopf- bzw. Fusszeilen verschieben
Hermann
Hallo Thorsten,
vielen Dank für Deine Hilfe.
Gruss Hermann

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige