Druck Seitenzahl erhöhen Excel2007

15/03/2009 - 12:05 von Hans-Jörg Küster | Report spam
Hallo,

eine Vorlage soll immer wiedermal ausgedruckt werden.
Je nach benötigte Anzahl soll sich die Nummerierung(Blattzahl) der Seite erhöhen.

Also z.B. 10 mal ausdrucken, die erste Seite ist dann mit Blatt 1, die letzte ist Blatt 10 beziffert.
Ist das möglich? Oder muss ich alle anlegen je nach Ausdruck?

mfg hjörg
 

Lesen sie die antworten

#1 Wolfgang Kutsche
15/03/2009 - 17:58 | Warnen spam
Hallo Hans-Jörg,

geht IMO nur mit VBA ... hier ein Beispielcode:

Sub SeitennummerWieAnzahl()
Dim AnzDruck, i As Integer
AnzDruck = 10 'hier eventuell Abfrage ü. Dialogfeld
For i = 1 To AnzDruck
ActiveSheet.PageSetup.CenterFooter = "Seite " & i
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
End Sub

Gruß Wolfgang
WinXP Home SP3, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de


"Hans-Jörg Küster" wrote:

Hallo,

eine Vorlage soll immer wiedermal ausgedruckt werden.
Je nach benötigte Anzahl soll sich die Nummerierung(Blattzahl) der Seite erhöhen.

Also z.B. 10 mal ausdrucken, die erste Seite ist dann mit Blatt 1, die letzte ist Blatt 10 beziffert.
Ist das möglich? Oder muss ich alle anlegen je nach Ausdruck?

mfg hjörg

Ähnliche fragen