VBA to exclude One Sheet from printing

[smhutch]

I have a code to print all visible sheets that already works successfully. However, I have a main input sheet that I don't want to ever print.

Any ideas on a script for my special Print button to print all visible sheets but exclude my main sheet from printing?

 

[schielrn]

What is the current code you are using?

 

[Travis]

post your code if you want specifics, but something like this would print everything except sheet1

Sub PrintSheets()
 Dim ws As Object
    For Each ws In Application.Worksheets
    If ws.Name <> "Sheet1" Then _
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Next
End Sub

 

[smhutch]

post your code if you want specifics, but something like this would print everything except sheet1

Sub PrintSheets()
 Dim ws As Object
    For Each ws In Application.Worksheets
    If ws.Name <> "Sheet1" Then _
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Next
End Sub

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.PrintOut
Exit Sub
End If
Next ws
End Sub

That is what I want it to do, but I don't want my Sheets("Main") to print.

 

[schielrn]

Try this:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible and ws.name <> "Main" Then
ws.PrintOut
Exit Sub
End If
Next ws
End Sub

I don't understand why you are exiting the code after it does the print out though? Is it actually printing all the sheets?

Hope that helps.

 

[Travis]

Private Sub CommandButton1_Click()
 Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible And _
         ws.Name <> "Main" Then ws.PrintOut
    Next ws
End Sub