Sub Hauptleitung ()
SetupToPrint „ALLE Verkäufe“
SetupToPrint „neue Verkäufe“
SetupToPrint „alte Verkäufe“
Enden-Unterseeboot
Privates VorSetupToPrint (SH als Schnur)
Blätter (SH). Aktivieren
SetPrintAreaToPivotTable benennen
SetPageBreakToXNumberOfRows benennen
Unterseeboot beenden
Privates VorSetPrintAreaToPivotTable ()
Mit ActiveSheet
lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells einstellen (1)
rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells) einstellen
strPTAddress = rngTopLeft.Address u. „: “ u. existieren rngBotRight.Address 'strPT Adresse nicht!
.PageSetup.PrintArea = strAddress
Ende mit
Enden-Unterseeboot
Privates VorSetPageBreakToXNumberOfRows ()
Schwaches Lastrow als lang
Schwaches Row_Index als lang
Schwaches RW als lang
'Wieviele Reihen Sie zwischen jedem Seitenende wünschen
RW = 48
Mit ActiveSheet
'Alles PageBreaks entfernen
.ResetAllPageBreaks
'Nach der letzten Reihe mit Daten in Spalte D suchen
Lastrow =. Zellen (Rows.Count, „D“). Ende (xlUp). Reihe
Für Row_Index = RW + 2 zum Lastrow Schritt RW
.HPageBreaks.Add vorher: =.Cells (Row_Index, 1)
Zunächst
Ende mit
Enden-Unterseeboot
|