Something Jack wrote long ago on OzGrid Aug 1st 2006
Link : printing a hidden worksheet
Re: printing a hidden worksheet
Does this help, copy this code to a standard VBE module and run as normal
jiuk
Code
Sub JR_myPrintHiddenExcelWorksheets()
' Rritten by: Jack in the UK for http://www.OzGrid.com
' Our WEB site - http://www.excel-it.com
' 01st Aug 2006 23:31
' jiuk - infomation(s)
'xlSheetVisible = -1
'xlSheetHidden = 0
'xlSheetVeryHidden = 2
Dim mySheets As Excel.Worksheet
For Each mysheet In ThisWorkbook.Worksheets
If mysheet.Visible = 0 Or mysheet.Visible = 2 Then
If mysheet.Visible = 0 Then
' jiuk HIDDEN
With mysheet
.Visible = -1
.PrintOut
.Visible = 0
End With
End If
If mysheet.Visible = 2 Then
' jiuk very HIDDEN
With mysheet
.Visible = -1
.PrintOut
.Visible = 2
End With
End If
End If
Next
theEnd:
' jiuk - do somthing -or- EXIT
Exit Sub
End Sub
Display More