excel vba printing

[kelvin_9]

Hello All,

can i add a command on printing with requirements as
on module1, tab color = 0, i just need to print 1 copies, one side printing for each sheet, no double side
on module2, tab color = 8, i need to print 2 copies, one side printing each sheet, no double side, uncollated

thank you very much

Sub Macro1()
'
' Macro1 Macro
'

'

'NO FILL COLOR TAB

Dim ws As Worksheet
Dim strg() As String
Dim count As Integer
count = 1
 
    For Each ws In Worksheets
        If ws.Tab.Color = 0 And Not ws.CodeName = "Sheet1" And Not ws.CodeName = "sheet2" Then
            ReDim Preserve strg(count) As String
            strg(count) = ws.Name
            count = count + 1
        Else
        End If
    Next ws
    
    Sheets(strg(1)).Select
    For i = 2 To UBound(strg)
        Sheets(strg(i)).Select False
    Next i

End Sub
Sub Macro2()
'
' Macro2 Macro
'

'

'BLUE(8) COLOR TAB

Dim ws As Worksheet
Dim strg() As String
Dim count As Integer


ReDim strg(1 To Worksheets.count)
    For Each ws In Worksheets
        If (ws.Tab.ColorIndex = 8) And Not ws.CodeName = "Sheet1" And Not ws.CodeName = "sheet2" Then
            count = count + 1
            strg(count) = ws.Name
        Else
        End If
    Next ws
    
    If count = 0 Then
      MsgBox "NO EMPO ORDER"
      Exit Sub
    End If

    ReDim Preserve strg(1 To count)
    Sheets(strg).Select

End Sub