[Hỏi] Chèn thêm code để IN nhiều sheet

Em có file dữ liệu cọc với code In tự động nhưng chỉ được 1 sheet Bìa (Sheet 3), vậy xin các Anh/chị giúp em chèn thêm code để có thể in 4 sheet : Bìa, Nhật ký cọc, Đổ Bê tông, BBLM (sheet 3,4,5,6,7) trong 1 lần in với ạ.
Code trong bài như sau  (sheet 3 là Bìa, ..)

[Visual Basic] 纯文本查看 复制代码

Sub print_td()
Dim p1 As Long, p2 As Long, n As Long, i As Long, j As Long
p1 = Sheet3.Range("N1").Value
p2 = Sheet3.Range("N2").Value
n = Sheet3.Range("N4").Value 'so bo can in
For j = 1 To n
  For i = p1 To p2
    Sheet3.Range("N3").Value = i
    'Sheet3.PrintOut
    Sheet3.PrintOut
  Next i
Next j

End Sub

Dưới sheet3.printout bạn thêm
sheet4.printout
sheet5.prinout
sheet6.printout

trinhtuong gửi lúc 29/7/2021 18:11
Dưới sheet3.printout bạn thêm
sheet4.printout
sheet5.prinout

dạ đã thử thêm nhưng in đc 1 tờ sheet 3 bị lỗi 400 liền ạ