[Hỏi] code VBA in file excel nhiều sheet nhiều dữ liệu đầu vào

Sub InHangLoat()
    Dim I As Integer, m As Integer
    Dim TenCoc As String
    m = Range("DT.NK!B" & Cells.Rows.Count).End(xlUp).Row
    For I = 13 To m
        TenCoc = Range("DT.NK!B" & I).FormulaR1C1
        With Sheets("2. NK")
            .Range("R2").FormulaR1C1 = TenCoc
            .PrintOut
        End With
        Sheets("3. Dia Chat").PrintOut
        Sheets("4. PTDBT").PrintOut
        ' ...................     Chèn tiếp vào đây nếu muốn in thêm sheet khác nhé!
    Next I
End Sub

Option Explicit

Sub InHangLoat()
    Dim I As Integer, m As Integer
    Dim TenCoc As String, lylichcoc As String
    m = Range("DT.NK!B" & Cells.Rows.Count).End(xlUp).Row
    For I = 13 To m
        TenCoc = Range("DT.NK!B" & I).FormulaR1C1
        With Sheets("2. NK")
            .Range("R2").FormulaR1C1 = TenCoc
        End With
 lylichcoc = "lylichcoc" & I & ".pdf"
 
ThisWorkbook.Sheets(Array("2. NK", "3. Dia Chat", "4. PTDBT")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\" & lylichcoc, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Next I
End Sub