A VBA code to print all sheets except sheet1and sheet2

[seragrefaat]

I want to put a command button on sheet named Data and provide it with code that print other sheets on the workbook except sheet Data and sheet next to it named Template. Thanks
I found this code here in the forum, it prints only one sheet other than the sheet which has the command button, also it hides the sheet after printing, i don't want that.

Private Sub CommandButton2_Click()

Dim MyRange As Range
Dim ws As Worksheet
Dim Lastrow As Long
Dim i As Long
Dim n As Long
Dim j As Long
Dim PrintArea As String
Application.ScreenUpdating = False
Set ws = ActiveSheet
j = ActiveSheet.Index
Sheets(j + 1).Visible = True
Sheets(j + 1).Select
Debug.Print ws.Range("A1").Value
For i = 1 To 30840
If Cells(34 * i + 8, 1).Value <> "" Then
n = i + 1
Else
GoTo Printing
End If
Next i

Printing:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Print" & (j + 1) / 2 _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True

Sheets(j + 1).Visible = False
Sheets(j).Select
Application.ScreenUpdating = True

End Sub

 

[Sanjeev1976]

Try the below code :

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Wks As Worksheet

For Each Wks In ActiveWorkbook.Worksheets
If Wks.Name <> "Data" or Wks.Name <> "Template" Then
Wks.PrintOut
End If
Next Wks
Application.ScreenUpdating = True
End Sub

 

[seragrefaat]

Try the below code :

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Wks As Worksheet

For Each Wks In ActiveWorkbook.Worksheets
If Wks.Name <> "Data" or Wks.Name <> "Template" Then
Wks.PrintOut
End If
Next Wks
Application.ScreenUpdating = True
End Sub

The code print all sheets.

 

[Sanjeev1976]

Just check the sheet names i.e. Data and Template and correct the code with the correct names in the line

If Wks.Name <> "Data" or Wks.Name <> "Template" Then

 

[seragrefaat]

Just check the sheet names i.e. Data and Template and correct the code with the correct names in the line

If Wks.Name <> "Data" or Wks.Name <> "Template" Then

The names are correct still printing all sheets

 

[Sanjeev1976]

Try

If trim(lower(Wks.Name)) <> "data" or trim(lower(Wks.Name)) <> "template" Then

 

[seragrefaat]

Try

If trim(lower(Wks.Name)) <> "data" or trim(lower(Wks.Name)) <> "template" Then

It is not working either, it says (sub or function not defined) and highlighting on lower in the code

 

[MARK858]

Try...

If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then

 

[seragrefaat]

Try...

If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then

Still printing all sheets, my friend

 

[MARK858]

Doesn't for me if the names are correct. Post the full code as you have it now.