steve400243
Active Member
- Joined
- Sep 15, 2016
- Messages
- 429
- Office Version
- 365
- 2016
- Platform
- Windows
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.
VBA Code:
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