101.将工作表中最后一列作为页脚打印在每一面页尾

'###############################################################

'函数作用：将工作表中最后一列作为页脚打印在每一面页尾

'###############################################################

Public Sub Prin()

    '获取总页数

    If ExecuteExcel4Macro("Get.Document(50)") > 1 Then

        '获取每页行数

        I = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") ‐ 2

        X = I + 1

        L = Range("A65536").End(xlUp).Row '总行数

        For T = 2 To Application.WorksheetFunction.RoundUp(L / (I + 1), 0)

            Rows(L).Copy

            Rows(X).Insert Shift

            = xlDown

            Application.CutCopyMode = False

            X = X + I

            L = L + 1

        Next T

    Else

        ActiveSheet.PrintOut

        Exit Sub

    End If

    ActiveSheet.PrintOut

    For D = T ‐ 1 To 2 Step ‐1

        X = X ‐ I

        Rows(X).Delete Shift

        = xlUp

    Next D

End Sub