Nhờ Pro sửa giúp Code in phiếu tự động theo điều kiện (2 người xem)

[chicpt]

Sub InPhieu()
Dim m As Long, n As Long
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
        For n = 1 To m
        m = [DenSoHD].Value - [TuSoHD].Value
        If [TuSoHD].Value < [DenSoHD].Value Then
        [TuSoHD].Value = [TuSoHD].Value + n
       
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
       ':=True, IgnorePrintAreas:=False
      
        Else
        MsgBox " da het roi"
       
        End If
        Next
End Sub

Minh chạy nhwng chi in đc 01 phieu thoi