XL5: Sheets in Wrong Orientation with Print Entire Workbook

• Microsoft Excel for Windows, version 5.0

SYMPTOMS

In Microsoft Excel, when you open a workbook that contains worksheets with different page setup orientations, and you print the entire workbook, some of the worksheets may be printed with the wrong page orientation.

STATUS

Microsoft has confirmed this to be a problem in the Microsoft products listed at the beginning of this article. This problem was corrected in Microsoft Excel for Windows version 5.0c.

WORKAROUNDS

To work around this problem, you must re-establish the orientation for each sheet; you can do this manually, or you can use a macro to do it automatically.

To re-establish the orientation manually

1. From the File menu, choose Print. Under Print What, select the Entire Workbook option and choose Print Preview.

2. For each worksheet in the workbook that is displayed in the wrong orientation, choose the Setup button.

   Note that on the Page tab in the Page Setup dialog box, the correct option under Orientation is selected. Choose OK.

3. Choose the Next button to view the next worksheet in the workbook. Repeat steps 2 and 3 for the each sheet in the workbook.

To re-establish the orientation automatically

The following macro adjusts the page orientation and prints the entire workbook correctly. To use the macro:

1. Enter the following code on a macro sheet:

         Sub PrintOutWorkbook()
         Dim Page As Object
         'Loop through each Worksheet in the active workbook
         'using "Page" as a loop variable.
         For Each Page In ActiveWorkbook.Worksheets
             'Reset page orientation to itself
             Page.PageSetup.Orientation = Page.PageSetup.Orientation
         'End of loop
         Next Page
             'Print the Entire Workbook
             ActiveWorkbook.PrintOut
         End Sub
   
   

2. To run the macro, use the Menu Editor to assign it to a toolbar button or menu command, run it directly from the macro dialog box.