One way:

Sub PrintHiddenWS()
Dim ws As Worksheet
Dim i As Long
Application.ScreenUpdating = False
i = 0
For Each ws In ThisWorkbook.Worksheets
With ws
If .Visible = False Then
i = i + 1
.Visible = True
.PrintOut copies:=1, collate:=True
.Visible = False
End If
End With
Next
Application.ScreenUpdating = True
If i = 0 Then
MsgBox "No hidden sheets found!"
End If
End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----

.