Underhuvudsakligt ()
SetupToPrint ”ALLA Salar”,
SetupToPrint ”nya Salar”,
SetupToPrint ”gammala Salar”,
Avsluta suben
Sh privata underSetupToPrint (som stränger)
Täcker (sh). Aktivera
Appell SetPrintAreaToPivotTable
Appell SetPageBreakToXNumberOfRows
Avsluta suben
Privata underSetPrintAreaToPivotTable ()
Med ActiveSheet
lPTcells = .PivotTables (”PivotTable1”) .DataBodyRange.Cells.Count
Fastställd rngTopLeft = .PivotTables (”PivotTable1”) .RowRange.Cells (1)
Fastställd rngBotRight = .PivotTables (”PivotTable1”) .DataBodyRange.Cells (lPTcells)
strPTAddress = rngTopLeft.Address & ”: ” & rngBotRight.Address-'strPT tilltalar finns inte!
.PageSetup.PrintArea = strAddress
Avsluta med
Avsluta suben
Privata underSetPageBreakToXNumberOfRows ()
Dunkla Lastrow som Long
Dunkla Row_Index som Long
Dunkel RW som Long
'Hur många ror, du önskar mellan varje sidaavbrott
RW = 48
Med ActiveSheet
'Ta bort all PageBreaks
.ResetAllPageBreaks
'Sökandet för jumbon ror med data i kolonn D
Lastrow =. Celler (Rows.Count, ”D”). Avsluta (xlUp). Ro
För Row_Index = RW + 2 till Lastrow kliver RW
.HPageBreaks.Add för: =.Cells (Row_Index, 1)
Därefter
Avsluta med
Avsluta suben
|