MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Page Format


Posted by Kev Tweddle on December 27, 2001 2:11 AM

Hi

I have a problem with the page format, I have four tables of data under each other and to the right of each table is a 3D Pie chart.

The problem is that the tabels and the graphs cover all pages when I look at Print Preview.

I used the following code to try and fit everything onto one page:

Sub Pagebreak()

With Activesheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Apparently in Excel 97 this does not work. Does anybody have any other ideas as to how I can fit everything onto one page.

I can manually adjust the pagebreak and it works, I think there is a command called Adjust, but I'm not sure how to use it.

Can anybody help?

Greatly appreciated.

Thanks.


Posted by Kev Tweddle on December 27, 2001 6:16 AM

Just to let you know this was the solution:

With Worksheet("Table2").PageSetup
.Zoom = 55
.FitToPagesTall = 1
.FitToPagesWide = 1
End With

the missing element was of course the zoom factor.

Thankyou. With Activesheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With