Printing Selection

[Ody]

Hello,

I'm having trouble creating a printing macro that will print all the hidden sheets in my workbook except for 2 (sheet2 and sheet3). Thus far all my attempts have been in vane.

I appreciate any help!

Thanks!!

 

[sykes]

It's helpful to post what you've got already, to give us a flavour of the environment you're working in, and also to show you've actually tried to make a solution before asking for one.

This will also help to prevent posters coming back after a solution is offered, and saying it needs changing, because they didn't specify EXACTLY what they actually wanted in the first place.

However, this will do as you've specified. You could either call it from any other procedure (in it's own right:

 Sub print_hidden_sheets()
Dim ws As Worksheet
Application.ScreenUpdating = False
  On Error Resume Next
    For Each ws In ThisWorkbook.Sheets

        If ws.Visible = xlSheetHidden And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then
          
            ws.Visible = xlSheetVisible
            ws.PrintOut
            ws.Visible = xlSheetHidden
            
         End If
    Next
Application.ScreenUpdating = True
End Sub

, or better still, place it in the _click event of a command button on a sheet:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Application.ScreenUpdating = False
  On Error Resume Next
    For Each ws In ThisWorkbook.Sheets

        If ws.Visible = xlSheetHidden And ws.Name <> "Sheet2" And ws.Name <> "Sheet3" Then
          
            ws.Visible = xlSheetVisible
            ws.PrintOut
            ws.Visible = xlSheetHidden
            
         End If
    Next
Application.ScreenUpdating = True
End Sub

....you may wish to specify the number of pages etc, and this can be done by adjusting the arguments after the "Printout" statement.