PAGEBREAK-MACRO

[Jay Dean]

I am looking for a macro that will set any Excel sheet's page (no
mattet how many pages the page-break view shows) to just one page.
I would appreciate any assistance. Thanks.

Jay Dean.

 

[Vasant Nanavati]

Hi Jay:

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

Regards,

Vasant.

 

[Tom Ogilvy]

You might want to add:

With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With