Printing hidden Sheets from CommandButton

[Big Lar]

[FONT=Verdana][SIZE=1]Private Sub CommandButton1_Click()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/SIZE][/FONT]
[FONT=Verdana][SIZE=1]Dim iRow As Long<o:p></o:p>[/SIZE][/FONT]
[FONT=Verdana][SIZE=1]Dim WS As Worksheet<o:p></o:p>[/SIZE][/FONT]
[FONT=Verdana][SIZE=1]Set WS = Worksheets("Sheet1")[/SIZE][/FONT]
[SIZE=1]......F[FONT=Verdana]ollowed by a long list of functions to be performed.[/FONT][/SIZE]

<o></o>
<o></o>
I'd like to add code to the end of the routine to print hidden Sheet3?<o></o>
<o></o>
I haven’t tried everything, yet.<o></o>

 

[VoG]

Try

Application.ScreenUpdating = False
With Sheets("Sheet3")
    .Visible = xlSheetVisible
    .PrintOut
    .Visible = xlSheetVeryHidden
End With
Application.ScreenUpdating = True

 

[Big Lar]

Thanks Peter.

Now...just in case I need to work on it again, how do I unhide my "VERYHIDDEN" sheet?

I'll sip on a glass of Boodles on the Rocks in your honor.

 

[VoG]

Sheets("Sheet3").visible=xlSheetVisible

 

[Big Lar]

Ok...2 glasses of Boodles, but not a drop more!