Sub la conduttura ()
SetupToPrint “TUTTE LE vendite„
SetupToPrint “nuove vendite„
SetupToPrint “vecchie vendite„
Sommergibile dell'estremità
SetupToPrint secondario riservato (SH come stringa)
Strati (SH). Attivare
Denominare SetPrintAreaToPivotTable
Denominare SetPageBreakToXNumberOfRows
Concludere il sommergibile
SetPrintAreaToPivotTable secondario riservato ()
Con ActiveSheet
lPTcells = .PivotTables (“PivotTable1„) .DataBodyRange.Cells.Count
Regolare il rngTopLeft = .PivotTables (“PivotTable1„) .RowRange.Cells (1)
Regolare il rngBotRight = .PivotTables (“PivotTable1„) .DataBodyRange.Cells (lPTcells)
strPTAddress = rngTopLeft.Address & “: „ & l'indirizzo dello strPT di rngBotRight.Address 'non esiste!
.PageSetup.PrintArea = strAddress
Estremità con
Sommergibile dell'estremità
SetPageBreakToXNumberOfRows secondario riservato ()
Lastrow fioco come lungamente
Row_Index fioco come lungamente
Il RW fioco come lungamente
'Quante file volete fra ogni rottura di pagina
Il RW = 48
Con ActiveSheet
'Rimuovere tutto il PageBreaks
.ResetAllPageBreaks
'Cercare l'ultima fila con i dati in colonna D
Lastrow =. Cellule (Rows.Count, “D„). Estremità (xlUp). Fila
Per Row_Index = il RW + 2 al punto RW di Lastrow
.HPageBreaks.Add prima: =.Cells (Row_Index, 1)
Dopo
Estremità con
Sommergibile dell'estremità
|