Hallo liebe Community,
habe das gleiche Problem: Viele Tabellenblätter die miteinander nichts zu tun haben. Leider ist die Seitenzahl in der Fußzeile durchgängig, was wirklich nervt.
Im Internet habe ich keine Lösung zu diesem Problem gefunden und frage deshalb nochmal euch.
Andernfalls würde ich einen VBA-Code entwickeln der die Tabellenblätter einzeln auswählt und ausdruckt. Dann nämlich stimmt die Zuordnung.
Grüße
Martin
Abgetrennt aus
https://www.clever-excel-forum.de/thread-10967.html
Hallo Armin,
Danke für deine Mühe, aber ich glaube das ist nicht was ich suche.
Ich habe ca. 65 Tabellenblätter. Manche davon haben bis zu 3 Seiten.
Nun will ich alle ausdrucken, aber ich will dass für jedes Tabellenblatt die Seitennummerierung bei 1 beginnt und nur die maximalen Seiten des jeweiligen Tabellenblatts anzeigt.
IST:
Wks 1 (Seite 1 von 65)
Wks 2 (Seite 2 von 65)(Seite 3 von 65)(Seite 4 von 65)
....
SOLL
Wks1 (Seite 1 von 1)
Wks2 (Seite 1 von 3)(Seite 2 von 3)(Seite 3 von 3)
...
Grüße
Martin
Hallo,
möglicherweise habe ich dich nicht richtig verstanden. Bei mir wird alles was auf Tabelle 1 steht fortlaufend durchnummeriert. Alles was auf Tabelle 2 steht ebenfalls, wobei da wieder mit Seite 1 begonnen wird. Usw. usw.
Hallo Klaus-Dieter,
das Problem entsteht erst, wenn ich die Tabellenblätter ausdrucke (oder mir eine Vorschau zum Ausdruck anschaue).
Davor zeigt er mir die Seitenzahlen auch korrekt an, so wie ich es unter "SOLL" verdeutlicht habe. Sobald ich aber in Richtung Ausdrucken gehe, wird plötzlich gnadenlos durchnummeriert.
Grüße
Martin
Hallo Martin,
ich konnte das reproduzieren. Wenn ich die gesamte Mappe auf einen Rutsch drucke, wird alles durchnummeriert. Drucke ich die Blätter einzeln, wird so nummeriert, wie angezeigt. Ob es da irgendwo eine Option gibt, das zu ändern, weiß ich nicht.
Moin Martin!
(07.03.2019, 08:10)kliffi01 schrieb: [ -> ]Andernfalls würde ich einen VBA-Code entwickeln der die Tabellenblätter einzeln auswählt und ausdruckt. Dann nämlich stimmt die Zuordnung.
Dann mach das doch einfach!
Für alle:
Code:
Dim wks As Worksheet
For Each wks In Thisworkbook.Worksheets
wks.PrintOut
Next
Gruß Ralf
Hallo Ralf,
das habe ich getan.
Code:
Sub BlaetterDruckenV2()
Dim i, maxBlaetter
maxBlaetter = Sheets.Count
MsgBox "Hinweis: Bei mehrseitigen EK-Protokollen bitte nach Wunsch einseitigen oder beidseitigen Druck im nachfolgenden Dialog selbst einrichten."
Application.Dialogs(xlDialogPrinterSetup).Show
For i = 3 To maxBlaetter 'Alle Tabellenblätter ab und inkl. Tabellenblatt 3 werden ausgedruckt. Wer alle drucken will gibt i = 1 to maxBlaetter an
ThisWorkbook.Sheets(i).PrintOut 'Dialog um einen Drucker auszuwählen.
Next i
MsgBox "Ausdruck erfolgreich abgeschlossen." & vbLf & "Gewählter Drucker: " & Application.ActivePrinter
End Sub
Das sieht für mich erstmal nach der Lösung aus die ich suchte - dennoch Danke an alle Mitwirkenden.
Ein weiteres Problem habe ich mit der Anzeige im Tabellenblatt, weil ich dort ein 'unsichtbares' Tabellenblatt mit Schaltflächen habe, wovon keine der Schaltflächen ausgedruckt werden kann (Objekt drucken abgewählt). Die Seitenzahl in der Fußzeile erfasst diese Seite trotzdem und zeigt mir Seite 1 von 4 an obwohl ich nur 3 Seiten habe. Beim Ausdrucken spielt das keine Rolle, weil ich über Druckbereiche festgelegt habe welche Seiten gedruckt werden sollen. Lediglich die Anzeige zeigt einen "Mist" an. Jemand eine Idee, wie ich diese 'unsichtbare' Seite, die keinen Druckbereich hat, korrekt ausblende, sodass die Seite nicht durch die Seitennummerierung in der Fußzeile erfasst wird?
Danke und Gruß
Martin