print areas on different worksheets printed together

[anon125]

I have an ancient version of excel. excel 2002
i can do a calculation in this case a mortgage.
ctrl click i can dupicate it to another worksheet.
do this 20 times and i have 21 worksheets.
alter each one to make it another scenario.
can i make the print area, the area on each of the worksheets- all on one print out?
thanks all

 

[John_w]

Try this macro, which shows the print preview and asks if you want to print (to the default printer).

Public Sub Print_All_Print_Areas_Together()

    Dim printSheet As Worksheet
    Dim destCell As Range
    Dim ws As Worksheet
    Dim printAreaRange As Range
   
    Set printSheet = ActiveWorkbook.Worksheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
    Set destCell = printSheet.Range("A1")
   
    For Each ws In ActiveWorkbook.Worksheets
        If ws.PageSetup.PrintArea <> "" Then
            Set printAreaRange = ws.Range(ws.PageSetup.PrintArea)
            printAreaRange.Copy destCell
            Set destCell = destCell.Offset(printAreaRange.Rows.Count)
            printSheet.HPageBreaks.Add Before:=destCell
        End If
    Next
   
    printSheet.PrintPreview
    If MsgBox("Print?", vbYesNo) = vbYes Then printSheet.PrintOut

    Application.DisplayAlerts = False
    printSheet.Delete
    Application.DisplayAlerts = True
   
End Sub

 

[anon125]

Thank you John