Drucktitel auf der letzten Druckseite entfernen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Drucktitel auf der letzten Druckseite entfernen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread