Changing Paper Size for a Complete Workbook

Bob has a workbook that has about fifteen worksheets in it, and he needs to change the page format for all the worksheet from Letter to A4. There is a quick way to make the change by following these steps:

1. Right-click any worksheet tab. You'll see a Context menu appear.
2. Choose Select All Sheets. All the worksheet tabs should now be selected.
3. Display the Page Setup dialog box. (In Excel 2007 display the Page Layout tab of the ribbon and click the small icon at the bottom-right of the Page Setup group. In earlier versions of Excel choose File | Page Setup.)
4. Make sure the Page tab is displayed. (Click here to see a related figure.)
5. Using the Paper Size drop-down list, choose A4.
6. Click OK.
7. Right-click any worksheet tab. You'll again see a Context menu.
8. Choose Ungroup Sheets.

That's it; the paper size is now set for all the worksheets. There is a drawback to this approach, however: If individual worksheets have differing page setup settings (different orientations, margins, headers, footers, etc.), then following these steps will set them all the same. If you only want to change the paper size and don't want to change any other settings, your only recourse is to use a macro to do the change.

Sub AllSheetsA4()
    Dim sht As Variant

    For Each sht In ActiveWorkbook.Sheets
        sht.PageSetup.PaperSize = xlPaperA4
    Next
End Sub

The macro steps through each sheet in the workbook, changing only the PaperSize property so that the sheet will print on A4 paper.