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

Seitenzähler

Forumthread: Seitenzähler

Seitenzähler
15.08.2003 05:28:29
HerbertS
Hallo Excel-VBA-Freunde,
ich möchte eine mehrseitige Tabelle mit einem Seitezähler ausdrucken. Auf der ersten Seite soll (wie bei Word) kein Seitenzähler stehen.
Mit ActiveSheet.PageSetup.CenterFooter = "&P“ komme ich nicht weiter. Wie kann man die Seitenzahlen abgreifen?
Vielen Dank für Eure Hilfe, HerbertS
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzähler
15.08.2003 07:14:41
Ramses
Hallo,
probier mal das:

Sub Drucken_mit_Seitenzahlen()
Dim PrintPages As Integer
Dim PageCounter As Integer
PrintPages = 0
PrintPages = ExecuteExcel4Macro("Get.Document(50)")
ActiveWindow.SelectedSheets.PrintOut from:=1, To:=1, Copies:=1
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
'.LeftHeader = ""
'.CenterHeader = ""
'.RightHeader = ""
'.LeftFooter = ""
'.CenterFooter = ""
.RightFooter = "&P"
End With
ActiveWindow.SelectedSheets.PrintOut from:=2, To:=PrintPages
, Copies:=1
End Sub

Gruss Rainer

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige