Select Visible sheets

[Darin Kramer]

HI guys,

Whats the VBA to select all visible sheets and print them?

Visiblesheets.select?

Thanks

D

 

[Jason Morin]

Sub PrintVisibleSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
ws.PrintOut Copies:=1, Collate:=True
End If
Next
End Sub

 

[Ron de Bruin]

See
http://www.rondebruin.nl/print.htm#visible

 

[Tom Ogilvy]

If you want them as one print job:

Sub SelectVisible()
Dim bReplace as Boolean, sh as worksheet
Dim shActive as worksheet
set shActive = Activesheet
bReplace = True
For Each sh In ThisWorkbook.Worksheets
If sh.Visible Then
sh.Select bReplace
bReplace = False
End If
Next
ActiveWindow.SelectedSheets.PrintOut
shActive.select
End Sub

 

[Darin Kramer]

Thanks Perfect! - Forgot to ask...if I want to exclude a specifically
named sheet (say called Contents) is that also possible?

 

[Tom Ogilvy]

If your happy with multiple print jobs rather than what you asked then:

Sub PrintVisibleSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible Then
if ws.Name <> "Contents" then
ws.PrintOut Copies:=1, Collate:=True
end if
End If
Next
End Sub