thử post code

[trinhnt1308]

-

Private Sub cmdPrint_Click()
Const nCamKet = "Cam_Ket"
Const nHDLD = "HDLD"
Dim rCK  As Worksheet, rHD As Worksheet
    Application.ScreenUpdating = False
    sn = Me.Range("sNum")
    en = Me.Range("eNum")
    If sn = 0 Then
        sn = 1: en = [A1]
    End If
    Set rCK = Sheets(nCamKet)
    Set rHD = Sheets(nHDLD)
    For i = sn To en
        rCK.Range(nCamKet) = i
        If Me.chkPPV Then
            If Me.chkCamKet Then rCK.PrintPreview
            If Me.chkHDLD Then rHD.PrintPreview
        Else
            If Me.chkCamKet Then rCK.PrintOut
            If Me.chkHDLD Then rHD.PrintOut
        End If
    Next
    Me.Range("sNum").Activate
    Set rCK = Nothing: Set rHD = Nothing
    Application.ScreenUpdating = True
End Sub