How to only show print area in a worksheet in Excel?
For printing specified ranges only, you can set print areas (Page Layout > Print Area > Set Print Area) in Excel. In some cases, you may want to make only print area visible when sharing with your colleagues, how to get it done? In this article, I will intrude several methods to only show print area in a worksheet in Excel.
- Only show print area in Page Break Preview view in Excel
- Only show print area with VBA in Excel
- Only show print area with Kutools for Excel’s Set Scroll Area utility
When we show a worksheet in the Page Break view with clicking the View > Page Break Preview, non-printing area’s background will be changed to dark gray automatically. See below screen shot:
Note: You can also change to the Page Break Preview view with clicking the Page Break Preview button in the Status Bar.
However, this method will not hide the non-printing area, and you can still view the data in the non-printing area.
To hide non-printing area completely in Excel, you can try VBA macro. And you can do as follows:
Step 1: Press the Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.
Step 2: Click Insert > Module, and then paste following VBA code into the module window:
VBA: Only Show Print Area in Current Worksheet
Public Sub HideAllButPrintArea() Dim xPrintRng As Range Dim xFirstRng As Range Dim xLastRng As Range Application.ScreenUpdating = False With Application.ActiveSheet .Cells.EntireColumn.Hidden = False .Cells.EntireRow.Hidden = False If .PageSetup.PrintArea <> "" Then Set xPrintRng = .Range(.PageSetup.PrintArea) Else Set xPrintRng = .UsedRange End If Set xFirstRng = xPrintRng.Cells(1) Set xLastRng = xPrintRng.Cells(xPrintRng.Count) If xFirstRng.Row > 1 Then .Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True End If If xFirstRng.Column > 1 Then .Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True End If If xLastRng.Row < .Rows.Count Then .Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True End If If xLastRng.Column < .Columns.Count Then .Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True End If End With Application.ScreenUpdating = True End Sub
Step 3: Press F5 key or click the Run button to run this VBA macro.
Then you will see non-printing area is hidden at once, and only the print area is shown in current worksheet. See below screen shot:
- When there is only one print area in current worksheet, the VBA macro works well.
- This method does not support undo. To show non-printing area, you have to manually unhide the non-printing area, or apply Kutools for Excel’s Hide > Unhide All Ranges utility.
If you have Kutools for Excel installed, its Set Scroll Area utility will help you only show a print area in current worksheet easily.
Step 1: Select the print area in current worksheet.
Note: If you can’t find out the print area quickly, you can press F5 key to open the Go To dialog box, select the print area name and click the OK button as below screen shot shown. But this method will select all print areas in current worksheet.
Step 2: Click the Kutools > Show / Hide > Set Scroll Area.
Then you will see only the selected print area is shown in current worksheet at once as below screen shot shown:
- Kutools for Excel’s Set Scroll Area supports undo, and you can press the Ctrl + Z keys simultaneously to show hidden non-printing area.
- You can click Kutools > Show / Hide > Unhide All Ranges to show hidden non-printing area immediatelly.
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!