Hiding rows that are not in print area

[JamieDuncan]

Is it possible to hide rows that are not in the print area?

There are 2 seperate selections of print area which have a large gap of sometimes unused rows, is there a way to hide them for not being in the print area?

 

[JamieDuncan]

ok so no-one knows how to do this? i find that hard to believe.

 

[hibster]

select the columns you want to hide and hide them using the right mouse button, alternatively, try creating the 2 print areas seperately using the ctrl key, tthis may help.

if not, re post and someone better will help.

Mark

 

[JamieDuncan]

Sorry i meant via a macro

 

[Oaktree]

Try something like this:

Sub hide_outside_print_area()
Dim my_cell As Range
For Each my_cell In Range("A1:A30")
If Intersect(my_cell, Range("print_area")) Is Nothing Then my_cell.EntireRow.Hidden = True
Next my_cell
End Sub

 

[JamieDuncan]

this works but....

its still running.

the range im covering is a1583 and it is taking approx 3 seconds PER ROW to run this macro, so far its only upto 225 oh well...

oops... i set the range to a1583 instead of a1:a583 much quicker but still takes a long time to run macro, is there a quicker way or should i create a loading screen?

 

[JamieDuncan]

ok i have it working twice in under a minute (once to unhide ie reset sheet and again to hide after print area adjusted)

which is perfectly acceptable for what i need, thanks oaktree

any ideas how to make it faster would be cool tho.