Drucktitel auf der letzten Druckseite entfernen

Forumthread: Drucktitel auf der letzten Druckseite entfernen

21.08.2014 21:23:43

Excelperte

Hallo,
diesen Beitrag habe ich schon gelesen: https://www.herber.de/forum/archiv/1304to1308/1305908_2_Worksheets_unterschiedliche_Wiederholungszeilen.html#1306096
Ich benutze das folgende Makro:

Sub Wiederholungszeilen()
Dim a%, b%
Sheets(Array("Abrechnung")).Select
a = ExecuteExcel4Macro("GET.DOCUMENT(50)")
b = a - 1
ActiveSheet.PageSetup.Order = xlDownThenOver
ActiveSheet.PageSetup.PrintTitleRows = "$7:$7"
For a = 1 To b + 1
If a > b Then
ActiveSheet.PageSetup.PrintTitleRows = ""
End If
ActiveWindow.SelectedSheets.PrintOut _
From:=1, To:=a, Copies:=1, Collate:=True
Next
End Sub

Mein Tabellenblatt "Abrechnung" hat x Seiten. Am Ende des Tabellenblatts steht immer eine 17-zeilige Zusammenfassung. Beginnt die letzte Seite mit der Zusammenfassung, soll der Drucktitel dort nicht erscheinen soll.
Passt die Zusammenfassung ohne Seitenumbruch mit unter meine Tabelle auf der Vorseite, soll der Drucktitel jedoch auf der letzten Seite angezeigt werden.
Wenn ich das Makro ausführe, erhalte ich drei einzelne Druckbefehle und entsprechend auch drei pdf-Dateien. Was ist an dem Makro falsch?
Weiterhin würde ich gern wissen, wie ich meine 17-zeilige Zusammenfassung AUTOMATISCH vor einem Seitenumbruch bewahre.
Ihr konntet mir bisher immer helfen! Hoffentlich auch dieses mal ... ;-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Drucktitel auf der letzten Druckseite entfernen

22.08.2014 14:30:50

fcs

Hallo Excelperte,
für einige Befehle ist die Reihenfolge noch nicht korrekt.
Der Drucktitel muss gesetzt werden bevor die Seitenzahl ermittelt wird.
Bei mir unter Excel 2010 rechnete das Excel4-Makro die Seitenzahl nicht korrekt aus. Deshalb die Umschaltung zwischen den Ansichten.
Die Druckjobs darfst du nicht in einer For-Next-Schleife drucken, sondern
als ein Druck, wenn die komplette Zusammenfassung auf die letzte Seite mit Tabelle passt
oder um Seitenwechsel durch die Zusammenfassung zu vermeiden
nach Setzen eines Seitenwechsel vor die Zusammenfassung von der 1. bis vorletzten Seite und dann nach löschen des Drucktitels die letzte Seite.
Das Makro sieht dann wie folgt aus.
Die Ausgabe als PDF hängt dann von dem verwendeten PDF-Drucker ab. Excel erzeugt bei jedem Druckjob eine neue Ausgabedatei.
Bei FreePDF besteht z.B die Möglichkeit eine MultiDoc-Ausgabe zu starten, so dass mehrere Druckausgaben auf den PDF-Drucker in einer Datei zusammengefasst werden können.
Gruß
Franz

Sub Wiederholungszeilen()
Dim a%, b%, wks As Worksheet, Zeile_L As Long, Zeile_Zus1 As Long
Set wks = Sheets("Abrechnung")
wks.Select
With wks
'Letzte Zeile mit Daten in Spalte A = letzte Zeile Zusammenfassung
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row 'ggf. Nummer der Spalte anpassen
'1. Zeile der Zusammenfassung
Zeile_Zus1 = Zeile_L - 16
.PageSetup.Order = xlDownThenOver
.PageSetup.PrintTitleRows = "$7:$7"
Application.ActiveWindow.View = xlPageBreakPreview
Application.ActiveWindow.View = xlNormalView
a = ExecuteExcel4Macro("GET.DOCUMENT(50)")
If Zeile_Zus1  b Then
MsgBox "Ausdruck erfolgt in 2 Druck-Jobs. Bei FreePDF im Dialog bitte " _
& "beim 1. Job ""MultiDoc"" wählen, beim 2. ""Ablegen/Auf den Desktop""", _
vbOKOnly + vbInformation, "Drucken FreePDF"
Sheets("Abrechnung").PrintOut From:=1, To:=b, Copies:=1, Collate:=True
.PageSetup.PrintTitleRows = ""
.PrintOut From:=a, To:=a, Copies:=1, Collate:=True
.HPageBreaks(.HPageBreaks.Count).Delete
.PageSetup.PrintTitleRows = "$7:$7"
Else
.PrintOut
End If
End With
End Sub

AW: Drucktitel auf der letzten Druckseite entfernen

22.08.2014 16:55:51

Excelperte

Hi Franz,
vielen Dank für Deine schnelle Antwort.
Das Ausblenden des Drucktitels auf der letzten Seite gelingt nun, wenn meine Zusammenfassung auf der vorletzten Seite in der Mitte umgebrochen wird. Das ist schon mal super!
Steht die Zusammenfassung zufällig alleine auf der letzten Seite, erscheint hier jedoch der Drucktitel. Und auch das automatische Umbrechen der letzten 17 Zeilen, für den Fall, dass nur noch 16 oder weniger Zeilen frei sind, gelingt noch nicht.

AW: Drucktitel auf der letzten Druckseite entfernen

22.08.2014 21:11:17

Excelperte

Kommando zurück!
Ich wollte gerade eine Beispieldatei hochladen, da stellte ich zu meiner Verwunderung fest, dass diese perfekt funktionierte. Ich verglich sie mit der Originaldatei und stellte fest, dass ich im Original unterhalb des festgelegten Druckbereichs die Spaltenbreiten notiert hatte.
Diese Zahlen waren genau 4 Zeilen tiefer als die letzte Zeile der Zusammenfassung: (Zeile_L). Und genau 4 Zeilen waren umzubrechen - so ein Zufall. Somit konnte ich optisch nicht sehen, das ein Seitenumbruch erfolgte.
1000 Dank Franz! Ich wusste, Du machst keine Fehler ...
:-))))

Infobox / Tutorial

Drucktitel auf der letzten Druckseite entfernen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Drucktitel auf der letzten Druckseite in Excel zu entfernen, kannst Du ein VBA-Makro verwenden. Die folgenden Schritte zeigen Dir, wie Du dies umsetzen kannst:

Makro erstellen:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:

Sub Wiederholungszeilen()
   Dim a%, b%, wks As Worksheet, Zeile_L As Long, Zeile_Zus1 As Long
   Set wks = Sheets("Abrechnung")
   wks.Select
   With wks
       Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
       Zeile_Zus1 = Zeile_L - 16
       .PageSetup.Order = xlDownThenOver
       .PageSetup.PrintTitleRows = "$7:$7"
       Application.ActiveWindow.View = xlPageBreakPreview
       Application.ActiveWindow.View = xlNormalView
       a = ExecuteExcel4Macro("GET.DOCUMENT(50)")
       If Zeile_Zus1 < b Then
           MsgBox "Ausdruck erfolgt in 2 Druck-Jobs.", vbOKOnly + vbInformation
           Sheets("Abrechnung").PrintOut From:=1, To:=b, Copies:=1, Collate:=True
           .PageSetup.PrintTitleRows = ""
           .PrintOut From:=a, To:=a, Copies:=1, Collate:=True
       Else
           .PrintOut
       End If
   End With
End Sub

Makro ausführen:
- Schließe den VBA-Editor.
- Gehe zurück zu Excel und drücke ALT + F8, um das Makro auszuführen.
- Wähle das Wiederholungszeilen-Makro und klicke auf Ausführen.

Häufige Fehler und Lösungen

Drucktitel erscheint auf der letzten Seite:
- Stelle sicher, dass das Makro korrekt konfiguriert ist und die Bedingungen für das Setzen der Drucktitel erfüllt sind. Überprüfe die Zeilen für die Zusammenfassung.
Drucktitel nicht wählbar:
- Überprüfe, ob die Zeile, die als Drucktitel festgelegt wurde, tatsächlich im Druckbereich enthalten ist. Wenn die Zeile nicht im Druckbereich ist, kann sie nicht als Drucktitel verwendet werden.
Druckaufträge werden geteilt:
- Das Makro muss so angepasst werden, dass es die gesamten Druckaufträge in einem Rutsch verarbeitet, wenn die Zusammenfassung auf der letzten Seite passt.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

Druckbereich anpassen: Setze den Druckbereich so, dass die Zusammenfassung auf der letzten Seite nicht erscheint, indem Du die letzten Zeilen manuell anpasst.
Excel-Optionen nutzen: Über die Druckoptionen in Excel kannst Du manuell festlegen, ob Titelzeilen auf bestimmten Seiten angezeigt werden sollen.

Praktische Beispiele

Beispiel 1: Wenn Deine Zusammenfassung genau auf der letzten Seite erscheint, stelle sicher, dass die Zeile, die als Drucktitel festgelegt ist, nicht in den Druckbereich fällt.
Beispiel 2: Wenn Du die Zusammenfassung auf der vorletzten Seite hast, teste das Makro, um sicherzustellen, dass der Drucktitel nur dann angezeigt wird, wenn die Zusammenfassung nicht allein auf der letzten Seite steht.

Tipps für Profis

Nutze die HPageBreaks-Methode, um Seitenumbrüche gezielt zu steuern, bevor die Zusammenfassung gedruckt wird.
Überlege, ob Du den Drucker in den Einstellungen so konfigurierst, dass mehrere Druckjobs in einer PDF-Datei zusammengefasst werden können. Dies spart Zeit und Platz.

FAQ: Häufige Fragen

1. Warum wird der Drucktitel auf der letzten Seite angezeigt? Der Drucktitel wird angezeigt, wenn die Zusammenfassung allein auf der letzten Seite steht. Stelle sicher, dass das Makro richtig konfiguriert ist, um dies zu vermeiden.

2. Wie kann ich die Drucktitel nur auf bestimmten Seiten anzeigen? Du kannst dies über die PageSetup-Einstellungen und das entsprechende VBA-Makro steuern. Achte darauf, die Bedingungen für das Setzen der Drucktitel genau zu definieren.

Beliebteste Forumthreads (12 Monate)

Drucktitel auf der letzten Druckseite entfernen

Forumthread: Drucktitel auf der letzten Druckseite entfernen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Drucktitel auf der letzten Druckseite entfernen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread