| Home |
| Search |
| Today's Posts |
|
#1
|
|||
|
|||
How do I print only the hidden worksheets in a workbook?
|
|
#2
|
|||
|
|||
|
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----- . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Print all charts in a workbook (multiple worksheets) | Charts and Charting in Excel | |||
| Print several worksheets at once with fewer pages | Excel Discussion (Misc queries) | |||
| Printing - Have to set print area 1 column further than necessary | Excel Discussion (Misc queries) | |||
| Print Workbook Without Page Breaks Between Worksheets | Excel Worksheet Functions | |||
| Multiple Worksheets and Print Merge function | Excel Discussion (Misc queries) | |||
Linear Mode
