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

 

[seragrefaat]

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

I tried your code, but when i press command button, it pritnt all sheets.

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False
Dim Wks As Worksheet

For Each Wks In ActiveWorkbook.Worksheets
If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then
Wks.PrintOut
End If
Next Wks
Application.ScreenUpdating = True

End Sub

 

[MARK858]

Run the code below which will print to the Immediate Window then Copy and paste the results in the thread (copy and paste the results, do not type them manually).

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

    For Each Wks In ActiveWorkbook.Worksheets
        Debug.Print "| &"; Wks.Name; "& |", Len(Wks.Name)

    Next Wks
    Application.ScreenUpdating = True
End Sub

 

[seragrefaat]

Run the code below which will print to the Immediate Window then Copy and paste the results in the thread (copy and paste the results, do not type them manually).

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

    For Each Wks In ActiveWorkbook.Worksheets
        Debug.Print "| &"; Wks.Name; "& |", Len(Wks.Name)

    Next Wks
    Application.ScreenUpdating = True
End Sub

this code does not do anything,my friend

 

[MARK858]

this code does not do anything,my friend

Yes it does, it posts to the Immediate window (Ctrl +G in The VBE if you can't see it).

 

[seragrefaat]

Yes it does, it posts to the Immediate window (Ctrl +G in The VBE if you can't see it).

I don't know what this window is, plz send screenshots of your results, so i can know the place.

 

[MARK858]

 

[seragrefaat]

Run the code below which will print to the Immediate Window then Copy and paste the results in the thread (copy and paste the results, do not type them manually).

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

    For Each Wks In ActiveWorkbook.Worksheets
        Debug.Print "| &"; Wks.Name; "& |", Len(Wks.Name)

    Next Wks
    Application.ScreenUpdating = True
End Sub

I found the immediate window

 

[MARK858]

Now clear (you'll need to select the data and cut) the Immediate window and run the code below and paste those results.

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

    For Each Wks In ActiveWorkbook.Worksheets
        If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then
           Debug.Print Wks.Name
        End If
    Next Wks
    Application.ScreenUpdating = True
End Sub

 

[seragrefaat]

Now clear (you'll need to select the data and cut) the Immediate window and run the code below and paste those results.

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

    For Each Wks In ActiveWorkbook.Worksheets
        If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then
           Debug.Print Wks.Name
        End If
    Next Wks
    Application.ScreenUpdating = True
End Sub

What does it mean?

 

[MARK858]

It means the code is ignoring the sheets called Template and Data when it runs the loop and so there is no reason why it would printout those 2 sheets in the code below.

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

    For Each Wks In ActiveWorkbook.Worksheets
        If Trim(LCase(Wks.Name)) <> "data" And Trim(LCase(Wks.Name)) <> "template" Then
           Wks.PrintOut
        End If
    Next Wks
    Application.ScreenUpdating = True
End Sub