I have three worksheets in my workbook that are all small. Is there a
way to print the data from all three sheets on one piece of paper?
Printing : Printing Multiple Worksheets on a Single Page
-
-
-
Hi
Insert another sheet into the workbook and use copy and paste to put the three results sheets onto one page
Big Bob -
Code
Display MoreSub MultiSheetPrint() ' prints the selected area on each of a set of selected worksheets on ' a single sheet Dim oActive As Object Dim oSheet As Object Dim oSheets As Object Dim wsPrint As Worksheet Dim oLastPic As Object Dim iPics As Integer ' remember where we are Set oSheets = ActiveWindow.SelectedSheets If oSheets.Count = 1 Then Selection.PrintOut preview:=True Exit Sub End If Set oActive = ActiveSheet Application.ScreenUpdating = False oActive.Select ' otherwise we get lots of new sheets Set wsPrint = Worksheets.Add For Each oSheet In oSheets If TypeName(oSheet) = "Worksheet" Then iPics = iPics + 1 oSheet.Activate Selection.CopyPicture wsPrint.Cells(iPics * 3 - 2, 1).Value = oSheet.Name wsPrint.Paste wsPrint.Cells(iPics * 3 - 1, 1) wsPrint.Rows(iPics * 3 - 1).RowHeight = _ wsPrint.Pictures(iPics).Height End If Next wsPrint.PrintOut preview:=True Application.DisplayAlerts = False wsPrint.Delete Application.DisplayAlerts = True oSheets.Select oActive.Activate Application.ScreenUpdating = True End Sub
-
Re: Printing : Printing Multiple Worksheets on a Single Page
In Excel 2010: Add a new worksheet, then copy the tables you wish to combine onto it using 'Paste Linked Picture'.
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!