Điều chỉnh kiểu in theo điều kiện (1 người xem)

[BoKuDo]

Nhờ các bạn giúp mình sửa lại đoạn code bên dưới để nó có thể hoạt động đc.
cụ thể là cùng 1 đoạn code nhưng ở mỗi sheet khác nhau thì cho ra vùng in khác nhau.
Mình cảm ơn!

Sub ModIn()
    Dim lngRow As Long
    Dim Target As Range
        If Target.Address = "$IV$1" Then
                If Target = "KIEU 1" Then
                    lngRow = Application.WorksheetFunction.Count(ActiveSheet.Range("L:L"))
                    With ActiveSheet.Range("A7:S" & lngRow + 12)
                        .PrintOut Copies:=1, Preview:=True, Collate:=True
                    End With
                    Else
                    lngRow = Application.WorksheetFunction.Count(ActiveSheet.Range("W:W"))
                    With ActiveSheet.Range("U7:Z" & lngRow + 12)
                        .PrintOut Copies:=1, Preview:=True, Collate:=True
                    End With
                
                If Target = "KIEU 2" Then
                    lngRow = Application.WorksheetFunction.Count(ActiveSheet.Range("C:C"))
                    With ActiveSheet.Range("A5:V" & lngRow + 12)
                        .PrintOut Copies:=1, Preview:=True, Collate:=True
                    End With
                    Else
                    lngRow = Application.WorksheetFunction.Count(ActiveSheet.Range("AF:AF"))
                    With ActiveSheet.Range("X5:AL" & lngRow + 19)
                        .PrintOut Copies:=1, Preview:=True, Collate:=True
                    End With
                End If: End If
        End If
End Sub

 

[BoKuDo]

up lên nhờ các bạn....