如何在EXCEL连续打印时，使k2栏的数值自动增加,一直到等于E2为止

chenyin0824

如何在EXCEL连续打印时，使k2栏的数值自动增加,一直到等于E2为止。

qlh1978

Sub 打印()
    Dim A As Integer
    Dim B As Integer
    A = ActiveSheet.Range("E2")
    B = ActiveSheet.Range("K2")
    If B <= A Then
        For X = B To K
            ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
            ActiveSheet.Range("K2") = X + 1
        Next X
        ActiveSheet.Range("K2") =A
    End If
End Sub