Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to print multiple selections on one page in Excel?

If you have a large worksheet which contains much data, and now, you want to print some selected ranges which are non-continuous in one page, so that you can save much paper. Excel provides the Set Print Arear feature for us to print multiple selections at once, but, each selected ranges will be printed into one page separately. This article will talk about how to print multiple non-continuous selections on one page.

Print multiple selections from one worksheet on one page with VBA code

Print multiple selections from one or multiple worksheets on one page with Kutools for Excel


Print multiple selections from one worksheet on one page with VBA code


To print multiple selected non-contiguous selections of one worksheet in one page, the following VBA code may help you, please do as follows:

1. Press Ctrl key to select the ranges that you want to print.

2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

3. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Print multiple selections into one page

Sub PrintOutRange()
'Update 20150528
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Then press F5 key to run this code, and your selected ranges will be printed at once, and they will be printed into a single page.


Print multiple selections from one or multiple worksheets on one page with Kutools for Excel

The above code only can help you to print the selected ranges from one worksheet, if you want multiple selections from several worksheets to be printed into one page, the above code will not work. Please don’t worry, here, I can introduce you a handy tool – Kutools for Excel, with its Print Multiple Selection Wizard utility, you can print the selections from one worksheet or multiple worksheets into one page at once.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days

After installing Kutools for Excel, please do with following steps:

1. Click Enterprise > Printing > Print Multiple Selection Wizard, see screenshot:

doc print multiple selections 1

2. In the Print Multiple Selection Wizard, clickdoc add button button to select and add the range that you want to print into the Ranges to print list box one by one, (you can select the ranges from one worksheet or multiple worksheets ), click doc remove button button can remove the ranges you don’t need, see screenshot:

doc print multiple selections 2

3. After adding the selections into the list box, please click Next >> button to go to step 2 of the wizard, specify the print settings as you need, and you can add a blank row between the selected ranges by check Add a blank row between ranges option, see screenshot:

doc print multiple selections 3

4. Then go on clicking Next >> butoon, in step 3 of the wizard, specify the action for the temporary worksheet, you can active the worksheet but don’t print, print the worksheet and keep it or print the worksheet and delete it. See screenshot:

doc print multiple selections 4

5. Click Finish button, all of the selected ranges have been pasted into a new worksheet as a linked picture objects. And you can drag and rearrange them in the worksheet. See screenshot:

doc print multiple selections 5

6. When you print this new worksheet, the ranges will be printed into one single page as you need.

Click to know more about this Print Multiple Selection Wizard utility.

Download and free trial Kutools for Excel Now !


Demo: Print multiple selections from one or multiple worksheets on one page with Kutools for Excel

Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days. Download and free trial Now!



Recommended Productivity Tools for Excel

Kutools for Excel Helps You Always Finish Work Ahead of Time, and Stand Out From Crowd

  • More than 300 powerful advanced features, designed for 1500 work scenarios, increasing productivity by 70%, give you more time to take care of family and enjoy life.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Brings Tabbed Browsing and Editing to Microsoft Office, Far More Powerful Than The Browser's Tabs

  • Office Tab is designed for Word, Excel, PowerPoint and Other Office Applications: 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!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)