ExcelRibbon.Tips.Net ExcelTips (Ribbon Interface)

Printing Multiple Worksheets on a Single Page

Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, and 2013. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Printing Multiple Worksheets on a Single Page.

Workbooks can contain all sorts of data. If you have a workbook that includes a number of worksheets, each containing only a small amount of data, you may wonder if there is a way to print the multiple worksheets on a single sheet of paper.

There are a couple of ways that you can approach a solution to this problem. The first is simply print multiple pages per sheet, using the capabilities of your printer driver. For instance, I have an older HP LaserJet, and the printer driver allows me to specify the number of pages to print per sheet of paper. If I wanted to print three or four single-page worksheets all on one piece of paper, all I need to do is follow these steps:

  1. Press Ctrl+P. Excel displays the Print dialog box (Excel 2007) or the printing options (Excel 2010 and Excel 2013).
  2. If you are using Excel 2007, choose the Entire Workbook option in the Print What area of the dialog box. If you are using a later version of Excel, use the drop-down list immediately under the Settings heading to choose Print Entire Workbook.
  3. Click the Properties button (Excel 2007) or the Printer Properties link (later versions of Excel). Excel displays the Properties dialog box for the printer, with the Layout tab selected.
  4. Set the Pages Per Sheet control to 4.
  5. Click OK to close the Properties dialog box.
  6. Click OK to actually print the worksheets.

Your printer may offer a similar capability to what is outlined here, but you may need to do some exploring through the printer's Properties dialog box to find that capability. Of course, printing this way can lead to some very small text on the printout, because the printer driver simply reduces each page to occupy a proportionate area of the printed page. If you want to reduce some of the white space, and thereby increase the size of the printed text, then you need to look for a different solution.

Many people, to consolidate what is printed, actually create a "printing worksheet" which contains nothing but references to the areas to be printed on the other worksheets in the workbook. These references can either be done through formulas referring to the data on each worksheet, or by using the camera tool in Excel. (The camera tool has been described in other issues of ExcelTips.)

For an automated solution of amalgamating multiple worksheets into a single worksheet, you can use a macro. The following macro will create a new worksheet at the end of your workbook and copy the contents from all the other worksheets into it.

Sub PrintOnePage()
 Dim wshTemp As Worksheet, wsh As Worksheet
 Dim rngArr() As Range, c As Range
 Dim i As Integer
 Dim j As Integer

 ReDim rngArr(1 To 1)
 For Each wsh In ActiveWorkbook.Worksheets
 i = i + 1
 If i > 1 Then ' resize array
  ReDim Preserve rngArr(1 To i)
 End If

 On Error Resume Next
 Set c = wsh.Cells.SpecialCells(xlCellTypeLastCell)
 If Err = 0 Then
  On Error GoTo 0

  'Prevent empty rows
  Do While Application.CountA(c.EntireRow) = 0 _
  And c.EntireRow.Row > 1
  Set c = c.Offset(-1, 0)

  Set rngArr(i) = wsh.Range(wsh.Range("A1"), c)
 End If
 Next wsh

 'Add temp.Worksheet
 Set wshTemp = Sheets.Add(after:=Worksheets(Worksheets.Count))

 On Error Resume Next
 With wshTemp
 For i = 1 To UBound(rngArr)
  If i = 1 Then
  Set c = .Range("A1")
  Set c = _
  Set c = c.Offset(2, 0).End(xlToLeft) 'Skip one row
  End If

  'Copy-paste range (prevent empty range)
  If Application.CountA(rngArr(i)) > 0 Then
  rngArr(i).Copy c
  End If
 Next i
 End With
 On Error GoTo 0

 Application.CutCopyMode = False ' prevent marquies

 With ActiveSheet.PageSetup 'Fit to 1 page
 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = 1
 End With

 'Preview New Sheet

 'Print Desired Number of Copies
 i = InputBox("Print how many copies?", "ExcelTips", 1)
 If IsNumeric(i) Then
 If i > 0 Then
  ActiveSheet.PrintOut Copies:=i
 End If
 End If

 'Delete temp.Worksheet?
 If MsgBox("Delete the temporary worksheet?", _
 vbYesNo, "ExcelTips") = vbYes Then
 Application.DisplayAlerts = False
 Application.DisplayAlerts = True
 End If
End Sub

After the combined worksheet is put together, the macro displays the worksheet using Print Preview. When you close Print Preview, it asks how many copies of the worksheet you want to print. If you enter a number greater than zero, then that many copies are printed. Finally, the macro offers to delete the combined worksheet for you just before finishing.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (8315) applies to Microsoft Excel 2007, 2010, and 2013. You can find a version of this tip for the older menu interface of Excel here: Printing Multiple Worksheets on a Single Page.

Related Tips:

Solve Real Business Problems Master business modeling and analysis techniques with Excel and transform data into bottom-line results. This hands-on, scenario-focused guide shows you how to use the latest Excel tools to integrate data from multiple tables. Check out Microsoft Excel 2013 Data Analysis and Business Modeling 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:

jskjfjd    22 Jun 2015, 07:34
Have tried in Excel 2007 and macros is not working fine, it merge all columns as per in A4 Sheet and gives output, doesn't work have modified in code also getting error.

kidnly share modifiable code for multile pages in print in single sheet and also provide the necessary information for to understand macros program very easily for begineers.
Jacqueline    13 Apr 2015, 16:03
I've been looking to modify this code so that when excel copies my sheet, it also keeps the column width and row heights of the sheets that it copies from. Also to make the default page layout to Landscape. I have tried different things and keep getting syntax errors. Any tips will be helpful!
Joe Garrett    04 Jun 2014, 09:14
Is it possible that this capability may be turned off by the administrator? I've tried this at work, on two different printers, and can't get it to happen. Any thoughts?

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 © 2017 Sharon Parq Associates, Inc.