ExcelBanter - PAGEBREAK-MACRO

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - PAGEBREAK-MACRO (https://www.excelbanter.com/excel-programming/277492-pagebreak-macro.html)

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.

Hi Jay:

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

Regards,

Vasant.

"Jay Dean" wrote in message
om...
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.

You might want to add:

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

--
Regards,
Tom Ogilvy

Vasant Nanavati wrote in message
...
Hi Jay:

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

Regards,

Vasant.

"Jay Dean" wrote in message
om...
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.