Arbeitsmappe drucken - Seitenzahlen -tricky
19.04.2004 16:04:19
florian
Ich habe ein etwas vezwicktes Problem, wäre umso schöner wenn ihr mit trotzdem helfen könntet.
In einem recht großen Programm wird am Schluss ein Bericht erstellt, außerdem werden auch Tabellenblätter eingefügt, sodass die Tabellennummerierung nicht mehr stimmt. Einige Sheets sind einseitig (mit druckbereich) andere mehrseitig. Nun will ich dass auf jeder ausgedruckten Seite eine fortlaufende Nummer in der richtigen Reihenfolge erscheint (Kopfzeile oder Zelle - VÖLLIG EGAL ;-). Mein Druckbefehl sieht bislang folgendermaßen aus:
Private Sub CommandButton3_Click()
Sheets("Deckblatt").Select
Application.Goto Reference:="Print_Area"
Selection.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim i As Integer
i = Worksheets.Count
For Each ws In ActiveWorkbook.Worksheets
If Left(ws.Name, 9) <> "Deckblatt" Then
ws.Select
With ActiveWorkbook.ActiveSheet.PageSetup
.LeftFooter = "&D"
.CenterFooter = "&N"
.RightFooter = Application.UserName
End With
ws.PrintOut
End If
Next
Application.ScreenUpdating = True
Sheets("Deckblatt").Select
Range("a1").Select
End Sub
Gibt es die Möglichkeit einen Zähler in der Arbeitmappe zu installieren, so das immer eine bestimmte Variablenangabe in einer Zelle (z.B. Blattnr())in jedem Sheet vor einem Druckbefehl hochgezählt wird?
Bin für jede Hilfe sehr sehr dankbar!
Schöne Grüße,
Florian