Pivot table: Page breaks

  • Thread starter Thread starter John
  • Start date Start date
J

John

Is there anyway to prevent a pivot table row from being split onto two
pages when printed?
 
You could use the Workbook_BeforePrint event to set the print area. For
example:

'==================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim str As String
str = Sheets("Sheet1").PivotTables(1).TableRange2.Address
With Sheets("Sheet1").PageSetup
.PrintArea = str
.CenterHorizontally = True
.CenterVertically = True
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub
'=========================
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Pivot Table Help! 1
Excel VBA For excel 0
Export Pivot table 1
Pivot table report invalid 0
PERFORM ACTION ON HITTING ENTER 1
Excel 2010 Slicer Connection / Pivot Table Problem 3
Consolidate Pivot Tables/Cache using Excel 2003 1
Turning Data into a Table 1

Back
Top