Skip to main content

How to exclude certain cell or area from printing in Excel?

While printing a worksheet, you may need to exclude values of certain cells or area from printing for some purpose. Methods in this article are going to show you how to exclude certain cell or area from printing in details.

Exclude certain cell or area from printing by customizing the cell format
Exclude certain cell or area from printing by VBA code


Exclude certain cell or area from printing by customizing the cell format

As below screenshot shown, you need to exclude the number 5 and 9 rows while printing the worksheet. Before printing, you can customize the format of certain cell or area to hide the cell content to achieve it. Please do as follows.

1. Select the cell or area you will exclude from printing (here I select multiple ranges A6:C6 and A10:C10), then press Ctrl + 1 keys simultaneously to open the Format Cells dialog box.

2. In the Format Cells dialog box, click Custom in the Category box under the Number tab, then enter three semicolon ;;; into the Type box, and finally click the OK button. See screenshot:

Now all contents in selected ranges are hidden immediately as below screenshot shown. You can start printing the worksheet now.

Note: After printing, you can remove the semicolons you have entered in step 2 from the Format Cells dialog box to display the cell contents.


Exclude certain cell or area from printing by VBA code

Besides the above method, you can apply the following VBA code to automatically hide contents of specified cells or area while printing worksheet.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, double click ThisWorkbook in the Project pane, and then copy and paste the below VBA code into the ThisWorkbook(Code) window.

VBA code: exclude certain cell or area from printing in Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim xIndex As Long
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            xIndex = .Range("A6:C6,A10:C10").Font.ColorIndex
            .Range("A6:C6,A10:C10").Font.Color = vbWhite
            .PrintOut
            .Range("A6:C6,A10:C10").Font.ColorIndex = xIndex
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    MsgBox "Print completed!", vbInformation, "Kutools for Excel"
End Sub

Note: In the code, Sheet1 is the active sheet name you need to print, and A6:C6, A10:C10 are the ranges you will exclude from the printing. Please change them based on your needs.

3. Press Alt + Q keys simultaneously to close the Microsoft Visual Basic for Applications window.

Now you can start printing your worksheet. After finishing printing, you will get a Kutools for Excel dialog box as below screenshot shown. And you can see the specified ranges are blanks in the printout.


Related articles:

Best Office Productivity Tools

🤖 Kutools AI Aide: Revolutionize data analysis based on: Intelligent Execution   |  Generate Code  |  Create Custom Formulas  |  Analyze Data and Generate Charts  |  Invoke Kutools Functions
Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

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...

Description


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!
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I've recieved an error in my line:

xIndex = .Range("B52:K92").Font.ColorIndex
This comment was minimized by the moderator on the site
Hi Maria,
After modifying the ranges in the VBA code, please press the "Save" button to save the code first, then go to print.
This comment was minimized by the moderator on the site
__________
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations