Office: Arbeitsmappe drucken, wo jedes register wieder mit 1 anfängt

Hallo,

ich möchte gerne meinen komplette Arbeitsmappe drucken und dabei soll jede Tabelle / Register mit 1 anfangen also z.b.

Register 1 = Seite 1-2
Register 2 = Seite 1-5
Register 3 = Seite 1-4
...
...
und nicht
Register 1 = Seite 1-2
Register 2 = Seite 3-7
....
..

ist des irgendwie möglich des so einzustellen ohne jedes Register einzeln drucken zu müssen.

danke schon mal

 

per VBA

Code:

Option Explicit
Dim WsTabelle As Worksheet

Private Sub Aufheben()
    For Each WsTabelle In Sheets
        WsTabelle.PrintOut
    Next WsTabelle
End Sub