![]() |
Page Break while sizing to fit page
I would like to add a page break statement into my macro, but I would
also like the pages, once the page break has been defined, to expand to fill the available space on the paper. There is no easy way to know in advance how wide the data columns will be (they adjust depending on the data entered). I guess I could calculate the total width and force the page width using a statement like this and then manually define the page width and not use the 'Fit to Page' option, but it seems like a memory-intensive brute force way to do it. I think I could do it as follows to measure the column width and then somehow use that info to set the page size, but it just does not seem like a good way to do it. Perhaps it is the only way, though. Totalwidth = Range("D2:CD2").Width Range("B247").Formula = Totalwidth Right now I have tried to define the pages as 2 pages wide as below, but when I add the page break point and add in the 'Fit to page" it no longer works. The Fit To Page command it seems to over-ride the page breaks, even if I add the statements - With ActiveSheet.PageSetup .FitToPagesWide = 2 .FitToPagesTall = 1 Is there any way to do this? Once again, I really appreciate the help. |
All times are GMT +1. The time now is 11:55 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com