Solved: Set all sheets to pagebreak preview.

[wilg]

I have this to set active window to pagebreak preview..

ActiveWindow.View = xlPageBreakPreview


But I want to automatically loop through all worksheets and set them all to pagebreak preview. Any way to do this?

Thanks to all of you for you support.

[Kenneth Hobs]

This works for each sheet that has data.
For Each ws In ActiveWorkbook.Windows
ws.View = xlPageBreakPreview
Next ws

[wilg]

I get an error of method or data not found and highlights

.View =

Sub work()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Windows
ws.View = xlPageBreakPreview
Next ws
End Sub

[Kenneth Hobs]

I was trying some other things. Try this:
Sub work()
Dim ws As Worksheet, tws As Worksheet
Set tws = ActiveSheet
For Each ws In Worksheets
ws.Activate
ActiveWindow.View = xlPageBreakPreview
Next ws
tws.Activate
End Sub

[wilg]

Hi Kennith. your code works. But as in my workbook I have 250 sheets so as you have each sheet activate it is very slow. But it does work. Thanks very much for all your help.

[Kenneth Hobs]

If you turn screen updating off, that might speed it up.

For that method and others, see my speedup kb entry. The SpeedOn and SpeedOff routines make it easy to use. http://www.vbaexpress.com/kb/getarticle.php?kb_id=1035