Chọn trang in trong nhiều sheet khi in liên tục các sheet

[tanthanhkg]

Học kỳ 1 năm học 2018-2019 đã kết thúc. Vì vậy việc in ấn Sổ Gọi Tên Và Ghi Điểm học kỳ 1 rất khó khăn bằng cách in thủ công. Chính vì vậy nay em post bài này nhờ các Bác giúp em viết đoạn code để in ấn theo yêu cầu của em với ạ. (Khi in thì thực hiện trên máy in khổ A3 chỉ in được 1 mặt)
*Xin các Bác viết đoạn code 1
- Trong sheet(Bia1) chọn in trang 1
- Trong sheet(Bia2) chọn in trang 1
- Trong sheet(SoYeuLyLich) chọn in trang 2
- Trong sheet(DiemDanh) chọn in trang 2, 4
- Trong sheet(BiaPhanGhiDiem_HKI) chọn in trang 1
- Trong sheet(DiemHKI) chọn in trang2, 4, 6
* Tiếp theo sau khi in xong tiếp tục in mặt phía sau của các trang đã được in ra
*Xin các Bác viết đoạn code 2
- Trong sheet(SoYeuLyLich) chọn in trang 1
- Trong sheet(DiemDanh) chọn in trang 1, 3, 5
- Trong sheet(DiemHKI) chọn in trang 1, 3, 5
- Trong sheet(DiemTongKet_HKI) chọn in trang 1
Xin các Bác giúp để em thực hiện công việc in Sổ Gọi Tên Và Ghi Điểm cho học kỳ 1 năm học 2018-2019
Em xin cảm ơn trước.

 

[tanlongphucho]

Sub code1()
Sheets("Bia1").Range("a1:ad63").PrintOut
Sheets("Bia2").Range("a1:ad60").PrintOut
Sheets("soyeulylich").Range("i1:m65").PrintOut
Sheets("DiemDanh").Range("a72:ak142").PrintOut
Sheets("DiemDanh").Range("a214:ak284").PrintOut
Sheets("BiaPhanGhiDiem_HKI").Range("a1:n24").PrintOut
Sheets("DiemHKI").Range("aq1:cz206").PrintOut
End Sub

Sub code2()
Sheets("soyeulylich").Range("a1:h65").PrintOut
Sheets("DiemDanh").Range("a1:ak71").PrintOut
Sheets("DiemDanh").Range("a143:ak213").PrintOut
Sheets("DiemDanh").Range("a285:ak355").PrintOut
Sheets("DiemHKI").Range("a1:ap206").PrintOut
Sheets("DiemTongKet_HKI").Range("a1:x67").PrintOut
End Sub