Excel.Tips.Net ExcelTips (Menu Interface)

Automatic Selection of Portrait or Landscape

Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Automatic Selection of Portrait or Landscape.

Barbara has a worksheet that she needs to print out periodically. Sometimes she needs to only print three columns of data and other times she needs to print more. When she prints only three columns they fit very nicely on a page printed in portrait orientation. When she prints more columns then she needs to print in landscape orientation. Barbara wonders if there is a way she can set up Excel so that it automatically switches from portrait to landscape based upon the number of columns she wants to print.

Perhaps the easiest way to handle this type of printing is to add a little macro that runs just before printing. If the print area is set so that it contains 1, 2, or 3, columns, then the printout is done in portrait orientation. Any other number of columns and landscape orientation is used. Here is the macro; you should add it to the ThisWorkbook module:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        If Range(.PrintArea).Columns.Count > 3 Then
            .Orientation = xlLandscape
            .Orientation = xlPortrait
        End If
    End With
End Sub

Of course, it may be more beneficial (and flexible) if you simply use the Custom Views feature of Excel. You can specify a view that includes your three columns or any number of columns you want. You can even have the view include print settings, so the orientation of the page would be included in the view. Follow these steps to set up the views:

  1. Format and situate your worksheet as you want it to appear. Make sure, as well, that you set both the print area for your three columns and set the page layout to portrait orientation.
  2. Select Custom Views from the View menu. Excel displays the Custom Views dialog box.
  3. Click on the Add button. Excel displays the Add View dialog box. (See Figure 1.)
  4. Figure 1. The Add View dialog box.

  5. In the Name field, supply the name you want associated with this view.
  6. In the View Includes section, select the options that reflect what you want saved with this view. Make sure you specify that you want to include print settings.
  7. When you are satisfied with your settings, click the OK button. The current view is saved by Excel.
  8. Repeat steps 1 through 6, but this time for your larger print area, making sure you set the page layout for landscape orientation.

Now, whenever you want to print different ways, you just call up the view you want and choose to print—everything else is already set for you.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (10364) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Automatic Selection of Portrait or Landscape.

Related Tips:

Save Time and Supercharge Excel! Automate virtually any routine task and save yourself hours, days, maybe even weeks. Then, learn how to make Excel do things you thought were simply impossible! Mastering advanced Excel macros has never been easier. Check out Excel 2010 VBA and Macros today!


Leave your own comment:

  Notify me about new comments ONLY FOR THIS TIP
Notify me about new comments ANYWHERE ON THIS SITE
Hide my email address
*What is 5+3 (To prevent automated submissions and spam.)
           Commenting Terms

Comments for this tip:

There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)

Our Company

Sharon Parq Associates, Inc.

About Tips.Net

Contact Us


Advertise with Us

Our Privacy Policy

Our Sites


Beauty and Style




DriveTips (Google Drive)

ExcelTips (Excel 97–2003)

ExcelTips (Excel 2007–2016)



Home Improvement

Money and Finances


Pests and Bugs

Pets and Animals

WindowsTips (Microsoft Windows)

WordTips (Word 97–2003)

WordTips (Word 2007–2016)

Our Products

Helpful E-books

Newsletter Archives


Excel Products

Word Products

Our Authors

Author Index

Write for Tips.Net

Copyright © 2016 Sharon Parq Associates, Inc.