Macro to Print Entire Workbook - Including the Hidden Sheets

[lmpowell]

I’m using Excel 2003. When you open the workbook, there is only one worksheet open. All other worksheets are hidden. The open worksheet contains numerous navigation buttons – each assigned a macro – which unhide specific worksheets. I want a macro to print the entire workbook (including all the hidden worksheets). Any ideas?

 

[Datsmart]

Try this code. It will print all WorkSheets, including hidden ones.

Sub PrintEachPage()
    Dim ws As Worksheet
    Dim CurSheet As Worksheet
        Set CurSheet = ActiveSheet
        For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible = False Then
            ws.Visible = xlSheetVisible
            ws.PrintOut
            ws.Visible = xlSheetHidden
            Else
            ws.PrintOut
        End If
        Next ws
        CurSheet.Activate
End Sub

It unhides the hidden pages, prints them, then re-hides it if it was hidden.