Need to add to this code to print copies of sheets created after macro is ran

[steve400243]

Hello, This is part of a code that creates files, then prints out 2 copies of Sheet 3 "FREIGHT TAGS", I need the code to also print out 2 copies of "DEVAN SHEET", and 1 copy of "CFS SHEET". I cannot figure out how to work this in. Thanks in advance.

ws1.Range("A13", "N38").ClearContents
            ws1.Range("A13").Resize(UBound(sn), 14) = sn: ws1.Range("C3") = Key
            Sheets(Array("CFS SHEET", "DEVAN SHEET", "FREIGHT TAGS", "DATA")).Copy
            ActiveWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & ws1.Range("C4") & " - " & Key, 52: ActiveWorkbook.Close False
            For i = 1 To UBound(sn)
                Sheet3.Range("A8") = sn(i, 1)
                Sheet3.Range("D8") = sn(i, 3)
                Sheet3.Range("G8") = sn(i, 4)
                Sheet3.Range("A11") = sn(i, 5)
                Sheet3.Range("D11") = sn(i, 6)
                Sheet3.Range("G11") = sn(i, 2)
                Sheet3.Range("A1:I24").PrintOut COPIES:=2
            Next
        Next
    End With
End Sub

 

[rlv01]

Your phrase "work this in" implies that you have ideas about what that means that you have not described in your post. But to keep it simple for now, assuming

 Sheet3.Range("A1:I24").PrintOut COPIES:=2

Is working for you, Why not just add two more printout statements?

Sheets("DEVAN SHEET").Range("A1:I24").PrintOut COPIES:=2
Sheets("CFS SHEET").Range("A1:I24").PrintOut COPIES:=1

 

[steve400243]

Your phrase "work this in" implies that you have ideas about what that means that you have not described in your post. But to keep it simple for now, assuming

 Sheet3.Range("A1:I24").PrintOut COPIES:=2

Is working for you, Why not just add two more printout statements?

Sheets("DEVAN SHEET").Range("A1:I24").PrintOut COPIES:=2
Sheets("CFS SHEET").Range("A1:I24").PrintOut COPIES:=1

Thank you for pointing out the obvious to me rlv01, Should have been able to figure that out. Appreciate your response, works as needed. Enjoy the weekend!

 

[rlv01]

Np