Set Print Layout on Multiple Worksheets

  • Thread starter Thread starter mike.thompson
  • Start date Start date
M

mike.thompson

We have workbooks with several worksheets, up to 50, and all
worksheets are formatted the same. Is there a way that we can set
page breaks on all these worksheets at one time? It is not possible
to change the page breaks on multiple worksheets at once in "Page
Break Preview."
 
Hold down the shift key & click on the first page in your group....then on
the last page of your group of 50, all sheets should highlight. Now insert
your page breaks as needed and it will do it on all the pages highlighted at
once.


To unhighlight when you're done, just click one of the tabs and they should
all unhighlight.
 
Hold down the shift key & click on the first page in your group....then on
the last page of your group of 50, all sheets should highlight. Now insert
your page breaks as needed and it will do it on all the pages highlighted at
once.

To unhighlight when you're done, just click one of the tabs and they should
all unhighlight.





- Show quoted text -
Click to expand...

When I do that I insert a manual page break but I still have the
automatic page break where it originally was. I still have to go to
each worksheet and move the automatic page break. What am I missing.
 
When I do that I insert a manual page break but I still have the
automatic page break where it originally was. I still have to go to
each worksheet and move the automatic page break. What am I missing.- Hide quoted text -

- Show quoted text -
Click to expand...

I think we have found an answer.
We record a macro as we adjust the page breaks in Page Break Preview.
We then go to each worksheet and run the macro over it. This is not
ideal but if sure beats manually adjusting the page for each page.
 
Hello,
You could wrap your macro in some code that will automatically cycle
through each worksheet.
For example:

Dim sht As Worksheet
Application.ScreenUpdating = False

For Each sht In Worksheets
' your code here
Next sht

Application.ScreenUpdating = True
End Sub


HTH,
JP
 
Back
Top