Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenlayout festlegen

Seitenlayout festlegen
16.06.2003 19:27:53
Didi
Hallo Forum,

brach mal wieder Hilfe!

Wie kann ich für ca. 200 Tabellenblätter das gleiche Seitenlayout festlegen?
Habe mir mit dem Makrorekorder folgendes Makro aufgezeichnet,was fehlt noch um für alle Blätter in der Arbeitsmappe das gleiche Layout festzulegen?

Danke im Voraus

Gruß Didi

Sub Layout_festlegen()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Seitenlayout festlegen
16.06.2003 20:38:07
Matthias Gößner

Hallo Didi,
da machst du so:

Sub Layout_festlegen()

For Each Blatt in Sheets

With Blatt.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 70
End With

Next Blatt

End Sub


Fertig!

Grüße,
Matthias

Anzeige
Re: Seitenlayout festlegen
16.06.2003 20:47:46
Ramses

hallo,

warum gruppierst du nicht alle Tabellen und weisst das Format dann zu. Da wird es gleich auf alle übertragen.

Erste Tabelle markieren
Shift gedrückt halten
Letzte Tabelle anklicken
Layout zuweisen
Erste Tabelle anklicken
Fertig

Gruss Rainer

Re: Seitenlayout festlegen
17.06.2003 00:16:15
Didi

Hallo Rainer,

das hab ich bereits versucht, klappt aber leider nicht, es wird immer nur das zuerst markierte Tabellenblatt verändert !!

Gruß Didi

Re: Seitenlayout festlegen
17.06.2003 00:21:19
Didi

Hallo Matthias,

Danke, das klappt !!

Gruß Didi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige