Fußzeile-Seitennummerierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim strName As String Dim intAnzSeiten As Integer strName = "pfeu." intAnzSeiten = ExecuteExcel4Macro("Get.Document(50)") ActiveSheet.PageSetup.LeftFooter = _ "&""Arial,Fett"" " & strName _ & vbCr & vbCr & "&""Arial,Standard""&7 " _ & ActiveWorkbook.FullName & "\" & ActiveSheet.Name ActiveSheet.PageSetup.RightFooter = "&""Arial,Standard""Seite &P" & _ " von " & intAnzSeiten End Sub

hallo
geht auch per VBA.
Wenn sich die Namen der zu druckenden Sheets nicht ändern so:

Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True

und das einrichten der Kopf- und Fußzeile ist ja normalerweise eine einmalige Aktion, daß kannst du auch "zu Fuß" machen.
Es sei denn, die beiden Blätter werden erst durch das Makro erzeugt, dann solltest du an dieser Stelle die Fußzeile einfügen:
ActiveSheet.PageSetup.CenterFooter = "Seite &P von &N"
bzw, dein vollständiger Code würde so aussehen:

Sheets(Array("Tabelle1", "Tabelle2")).Select
selection.PageSetup.CenterFooter = "Seite &P von &N"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True

Gruß, Daniel

Sheets("Tabelle1").PageSetup.CenterFooter = "Seite &P von &N" Sheets("Tabelle2").PageSetup.CenterFooter = "Seite &P von &N" Sheets(Array("Tabelle1", "Tabelle2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True

Hallo
das Problem ist jetzt zumindest mal klar.
Das ganze kann so nicht funktionieren, weil der Dateiaufbau NICHT so ist wie du mir beschrieben hast, sondern etwas anders.
Laut deinen Angaben waren es 2 Blätter, eines mit 1er Seite und eines mit mehreren Steiten, die zusammen gedruckt werden sollten.
Das Makro ist aber anders aufgebaut.
Tatsächlich ist es so, daß es 2 Blätter gibt, aber beide haben nur genau 1 Seite.
Der Mehrseitenausdruck des 2. Blattes kommt daher, daß diese Seite in einer Schleife immer wieder
- mit neuen Daten gefüllt wird
- dann ausgedruckt wird
- dann geleert wird.
Somit ist jeder Ausdruck dieser Seite ein neuer, eigenständiger Druckauftrag, so daß die automatischen Seitenzahlen von Excel nicht funktionieren können.
Wenn du deine fortlaufenden Seitenzahlen auf den Blättern haben willst, fallen mir spontan 2 Lösungsmöglichkeiten ein:
1. Du berechnest vorab aus der Anzahl der Zeilen in der Datenbank die Anzahl der gedrucken Seiten.
Außerdem führts du einen Zähler ein, der bei jedem Druck +1 hochzählt.
diese Werte schreibst du dann als Seitenzahl in eine Zelle rein.
2. Die Blätter werden nicht sofort ausgedruckt, sondern stattdessen in eine neue Datei kopiert.
in dieser Datei befinden sich dann ALLE einzelseiten der Rechnung als eigenständiges Blatt.
dieses kannst du dann als Gesamte Arbeitsmappe drucken und dabei die Kopf/Fußzeilen-funktion von Excel nutzen.
Die 2. Lösung hätte zudem den Vorteil, daß du die Rechnung in der Druckform als Datei speichern kannst, oder beim Druck rech einfach eine zusammenhängende PDF-Datei erstellen kannst.
Beide Lösungen erforden einen etwas tieferen Eingriff in das Makro, wobei ich die 2. Lösung sogar noch für einfacher halte.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread