How do I set print areas for multiple sheets simultaneously?

[Twirly]

How do I set identical print areas for multiple sheets in the same workbook
simultaneously?

[Dave Peterson]

Can you use a macro?

Option Explicit
Sub testme()
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.PageSetup.PrintArea = "A1:X99"
End With
Next wks
End Sub


If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Twirly wrote:
>
> How do I set identical print areas for multiple sheets in the same workbook
> simultaneously?

--

Dave Peterson

[Dave Peterson]

Ps. You have to group the worksheets that should have the same print area
before running the macro.

Click on the first worksheet tab and ctrl-click on subsequent.

And after, rightclick on one of the grouped sheets and select ungroup sheets.

Twirly wrote:
>
> How do I set identical print areas for multiple sheets in the same workbook
> simultaneously?

--

Dave Peterson

[Twirly]

Thanks for that information. I'll give it a try.

"Dave Peterson" wrote:

> Ps. You have to group the worksheets that should have the same print area
> before running the macro.
>
> Click on the first worksheet tab and ctrl-click on subsequent.
>
> And after, rightclick on one of the grouped sheets and select ungroup sheets.
>
> Twirly wrote:
> >
> > How do I set identical print areas for multiple sheets in the same workbook
> > simultaneously?
>
> --
>
> Dave Peterson
>