Sub o cano principal ()
SetupToPrint “TODAS AS vendas”
SetupToPrint “vendas novas”
SetupToPrint “vendas velhas”
Submarino da extremidade
SetupToPrint secundário confidencial (sh como a corda)
Folhas (sh). Ativar
Chamar SetPrintAreaToPivotTable
Chamar SetPageBreakToXNumberOfRows
Terminar o submarino
SetPrintAreaToPivotTable secundário confidencial ()
Com ActiveSheet
lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
Ajustar o rngTopLeft = o .PivotTables (“PivotTable1”) .RowRange.Cells (1)
Ajustar o rngBotRight = o .PivotTables (“PivotTable1”) .DataBodyRange.Cells (os lPTcells)
strPTAddress = rngTopLeft.Address & “: ” & o endereço do strPT de rngBotRight.Address 'não existe!
.PageSetup.PrintArea = strAddress
Extremidade com
Submarino da extremidade
SetPageBreakToXNumberOfRows secundário confidencial ()
Lastrow não ofuscante como por muito tempo
Row_Index não ofuscante como por muito tempo
RW não ofuscante como por muito tempo
'Quantas fileiras você quer entre cada ruptura de página
RW = 48
Com ActiveSheet
'Remover todo o PageBreaks
.ResetAllPageBreaks
'Procurarar pela última fileira com dados na coluna D
Lastrow =. Pilhas (Rows.Count, “D”). Extremidade (xlUp). Fileira
Para Row_Index = RW + 2 à etapa RW de Lastrow
.HPageBreaks.Add antes: =.Cells (Row_Index, 1)
Em seguida
Extremidade com
Submarino da extremidade
|