Question : Problem printing 2 pages per sheet for mulfiple worksheets

I have a workbook with several worksheets. I want to print all of these at once, and I want them to come out 2 pages per sheet (i.e. if the first worksheet is only one page, the first page from the second worksheet should come out on the first printed sheet, next to the first worksheet).

This is what I have tried:
I select the tabs of all worksheets, go into print, and select print 2 pages per sheet under properties. What comes out of the printer (irrespective of which printer I use) is one sheet including the first page of the first worksheet (scaled down to 70, with the right half of the sheet being blank), the next sheet of paper includes the second worksheet, not scaled down at all, and the following sheets printed are all the rest of the workbook, also a new page for each workbook and in 100% (i.e. not scaled down to fit 2 pages per sheet.

How do I print out the worksheets the way I want?

Answer : Problem printing 2 pages per sheet for mulfiple worksheets

FagerbergDellby,

Copy all the sheets into one holding sheets and print from there. Attached is a file with a macro that does that with somerandom data I have used. ALT+F8 to select and run the 'copier' macro.

When it gets to the Preview screen press the Page Break review button and drag the page breaks to where you want them - they're the blue lines.

 To install a sub in a module:  
 
1) Press ALT+F11  
2) Find the workbook name in the VBAProject window (CTRL+R if it's not visible), right-click on the file name  
3) Select Insert/Module  
4) Double click on the new Module  
5) Paste the code into the Module under Option Explicit  
6) ALT + F11 to return to the worksheet  
7) ALT + F8 to select and run the macro

Hope that helps

Patrick

several-pages-printed-on-1-sheet.xls (83 KB) (File Type Details) 

Excel