How to clear print area through multiple sheets at once in Excel?
In some cases, we may set a print area in a worksheet for printing, but if there are multiple sheets with different print areas, how can I clear all print areas through multiple sheets at once in Excel? Manually deleting one by one is a slow way, is there any quick way?
Here is a macro code that can clear all print areas through the entire workbook.
1. Press Alt + F11 keys to enable the Microsoft Visual Basic for Applications window.
2. In the Project – VBAProject pane, double click ThisWorkbook and copy below VBA and paste them into the right blank script. See screenshot:
VBA: Clear print area entire workbook
Sub ClearPrintArea() 'UpdatebyExtendoffice20171229 Dim xSheet As Worksheet For Each xSheet In Worksheets xSheet.PageSetup.PrintArea = "" Next End Sub
3. Press F5 key to run the code, then all print areas in the workbook have been removed.
If you have Kutools for Excel, its Copy Page Setup utility also can do you a favor on clearing multiple print areas through sheets.
|Kutools for Excel, with more than 120 handy functions, makes your jobs easier.|
After installing Kutools for Excel, please do as below:（Free Download Kutools for Excel Now!)
1. Select one sheet, for instance, sheet random password, and then click Page Layout > Print Area > Clear Print Area. See screenshot:
2. Then click Enterprise > Printing > Copy Page Setup.
3. Then in the Copy Page Setup dialog,
in the Copy to section, all sheets except the current sheet are listing, please check the sheets you want to clear the print area from;
then go to the Options section, under Sheet list, check the Print area option only. See screenshot:
4. Click Ok. Now the print areas are removed from the selected sheets.
Recommended Productivity Tools
Bring handy tabs to Excel and other Office software, just like Chrome, Firefox and new Internet Explorer.
Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!
200 New Features for Excel, Make Excel Much Easy and Powerful:
- Merge Cell/Rows/Columns without Losing Data.
- Combine and Consolidate Multiple Sheets and Workbooks.
- Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.
- Count by Colors, Paging Subtotals, Advanced Sort and Super Filter,
- More Select/Insert/Delete/Text/Format/Link/Comment/Workbooks/Worksheets Tools...