Sub Leiding ()
SetupToPrint „ALLE Verkoop“
SetupToPrint „Nieuwe Verkoop“
SetupToPrint „Oude Verkoop“
Sub van het eind
Privé Sub sh SetupToPrint (als Koord)
(Sh) bladen. Activeer
Oproepen SetPrintAreaToPivotTable
Oproepen SetPageBreakToXNumberOfRows
Beëindig Sub
Privé SubSetPrintAreaToPivotTable ()
Met ActiveSheet
lPTcells = .PivotTables („PivotTable1“) .DataBodyRange.Cells.Count
Reeks rngTopLeft = .PivotTables („PivotTable1“) .RowRange.Cells (1)
Reeks rngBotRight = .PivotTables („PivotTable1“) .DataBodyRange.Cells (lPTcells)
strPTAddress = rngTopLeft.Address & „: “ & 'strPT bestaat het adres rngBotRight.Address niet!
.PageSetup.PrintArea = strAddress
Eind met
Sub van het eind
Privé SubSetPageBreakToXNumberOfRows ()
Schemerige Lastrow zoals lang
Schemerige Row_Index zoals lang
Schemerige RW zoals lang
'Hoeveel rijen u tussen elke paginaonderbreking willen
RW = 48
Met ActiveSheet
'Verwijder al PageBreaks
.ResetAllPageBreaks
'Onderzoek naar de laatste rij met gegevens in Kolom D
Lastrow =. Cellen (Rows.Count, „D“). Eind (xlUp). Rij
Voor Row_Index = RW + 2 aan Lastrow Stap RW
.HPageBreaks.Add vóór: =.Cells (Row_Index, 1)
Daarna
Eind met
Sub van het eind
|