Print ALL pages except for certain ones, and print double sided

[vbanoob1234]

Hi everyone,


My macro currently opens up all of the excel files in a certain path on my computer, and prints all visible sheets, single sided.
However, I want to fine tune my macro.
I have a bunch of hidden and very hidden sheet. I only want to print ALL of visible sheets, except for ones with the Worksheet Name "Master" "Deal" "Summary".
Also, I want to print all these sheets doubled side.

Sub PrintAll()


' Printsheets Macro




Dim wb As Workbook, ws As Worksheet
Dim sFil As String, sPath As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet




Application.ScreenUpdating = False


'OPENS THE PATH
sPath = "P:\VBA" 'location of files, don't forget the "" at the end
sFil = Dir(sPath & "*.xls") 'change or add formats




Application.DisplayAlerts = False


'FIND ALL THE FILES TO PRINT
Do Until sFil = ""
Workbooks.Open sPath & sFil
Set wb = ActiveWorkbook


Application.ScreenUpdating = False


'PRINTS OUT ALL VISIBLE SHEETS
'ws.PrintOut
For Each ws In wb.Worksheets
If ws.Visible = xlSheetVisible Then ws.PrintOut
Next
wb.Close




sFil = Dir()
Loop
Application.DisplayAlerts = True


End Sub

 

[Logit]

Double sided is referred to as Duplex Printing. https://msdn.microsoft.com/en-us/li...rinting.compatibility.vb6.printer.duplex.aspx

This code is UNTESTED but it will at least get you started. You'll have to add the double-sided printing feature to the code.

[COLOR=#333333]'Turn Alerts and Updating off
[/COLOR]
[COLOR=#333333]Application.DisplayAlerts = False     '<-- You should only need to place this at the top / beginning of your macro - it should not require repeating throughout the macro[/COLOR]
[COLOR=#333333]Application.ScreenUpdating = False[/COLOR]

[COLOR=#333333]'FIND ALL THE FILES TO PRINT
[/COLOR]
Dim ws As Worksheet
Dim WS_Count As Integer
Dim I As Integer

WS_Count = ActiveWorkbook.Worksheets.Count


' Begin the loop.
    For I = 1 To WS_Count
        With ThisWorkbook.Worksheets(I)
            If .Name <> "[COLOR=#333333]Master"[/COLOR] And .Name <>[COLOR=#333333]"Deal"[/COLOR] And .Name <> [COLOR=#333333]"Summary"[/COLOR] Then
                 [COLOR=#333333]If ws.Visible = xlSheetVisible Then[/COLOR]
                       [COLOR=#333333]ws.PrintOut
                 End If[/COLOR]
            End If
        End With
    Next I
[COLOR=#333333]wb.Close

[/COLOR][COLOR=#333333]Application.DisplayAlerts = True
[/COLOR][COLOR=#333333]Application.ScreenUpdating = True[/COLOR][COLOR=#333333]
[/COLOR]