Hide Page break 2

Hi Guys,
I have page breaks in every excel sheet (Page 1,Page 2) set for printing purposes.
Any way to hide all contents in everysheet starting with the 2nd page(meaning to display just the 1st page break) in every sheet?

I need this to be active for all sheets except Other
This is my code:


For Each ws in application.activeworkbook.worksheets
if ws.name <> ("Other") Then:

-----------------------
Thanks!

Hello.

See if it helps.

Please Login or Register  to view this content.

Hi ,
Thanks for the reply!
The issue is that I have 2 pages(in each sheet) so what your code will do is hide all sheets other than "other"

What I would like to do is hide the 2nd page in each sheet and keep the 1st page.
The reason I want to do it is because in some sheets the 2nd sheet does not contain any data so I wouldn't like to view it at all.
Thanks

Hi Vadimchik,

Great question. For your specific question, the solution is relatively simple, but for the general case a little more complicated. Issues for the general case include:
a. Blank Sheet (no Print Area)
b. Sheet using the default Print Area (Print Area never defined by the User)
c. Sheet where Page 1 is not in Cell 'A1'.
d. Non-standard Print Area (not addressed here)

See the attached file that contains the following code in ordinary code module ModDisplayHidePages2ThruN:

Please Login or Register  to view this content.

Lewis

Wow, thanks Lewis. Looks great, although more code than I anticipated. Won't that affect runtime when having 49 sheets ?

It was relatively quick with the six small sheets. Runtime with 49 sheets should be 5 seconds or less.

Thanks Lewish,
Really helpful and beautifully explained!

This could be qualifies as one of the simple solutions, as Lewis alluded to.

Please Login or Register  to view this content.

Note:No error checking in the code.

https://www.ozgrid.com/forum/forum/h...page-excel-vba