Print macro excluding some hidden sheets

[Ody]

Hello all,

I've been searching the web today looking for a macro that will allow me to print my entire workbook excluding certain hidden sheets (sheet2 and sheet3). I've located macros that print all hidden sheets, macros that exclude certain unhidden sheets, but not the combo I'm looking for. Anyone have any advice on this?

Here's what I'm unsuccessfully working with right now:

Sub Print_Hidden_And_Visible_Worksheets() 
  Dim CurVis As Long 
  Dim sh As Worksheet 
    
    For Each sh In ActiveWorkbook.Worksheets 
      With sh CurVis = .Visible 
         .Visible = xlSheetVisible 
         .PrintOut 
         .Visible = CurVis End 
      With 
    Next sh 
 
End Sub

Thanks much!

 

[Smitty]

How's this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet<br>        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets<br>            <SPAN style="color:#00007F">If</SPAN> ws.Visible = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN> ws.PrintPreview<br>        <SPAN style="color:#00007F">Next</SPAN> ws<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

Just change PrintPreview to PrintOut if it does what you want.

HTH,

 

[Ody]

Thanks for the quick reply Smitty!

The code works great, however, the only visible sheet is sheet1. I'd like to print the remaining hidden sheets except for sheet2 and sheet3. Thoughts?