Sub la cañería ()
SetupToPrint “TODAS LAS ventas”
SetupToPrint “nuevas ventas”
SetupToPrint “viejas ventas”
Submarino del extremo
SetupToPrint secundario privado (sh como secuencia)
Hojas (sh). Activar
Llamar SetPrintAreaToPivotTable
Llamar SetPageBreakToXNumberOfRows
Terminar el submarino
SetPrintAreaToPivotTable secundario privado ()
Con ActiveSheet
lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
Fijar el rngTopLeft = .PivotTables (“PivotTable1”) .RowRange.Cells (1)
Fijar el rngBotRight = .PivotTables (“PivotTable1”) .DataBodyRange.Cells (los lPTcells)
strPTAddress = rngTopLeft.Address y “: ¡” y dirección del strPT de rngBotRight.Address la 'no existe!
.PageSetup.PrintArea = strAddress
Extremo con
Submarino del extremo
SetPageBreakToXNumberOfRows secundario privado ()
Lastrow dévil como de largo
Row_Index dévil como de largo
RW dévil como de largo
'Cuántas filas usted quiere entre cada rotura de página
RW = 48
Con ActiveSheet
'Quitar todo el PageBreaks
.ResetAllPageBreaks
'Buscar para la fila pasada con datos en la columna D
Lastrow =. Células (Rows.Count, “D”). Extremo (xlUp). Fila
Para Row_Index = RW + 2 al paso RW de Lastrow
.HPageBreaks.Add antes: =.Cells (Row_Index, 1)
Después
Extremo con
Submarino del extremo
|