主题：[求助]分页打印公式修改

参考

http://www.foxtable.com/webhelp/scr/2241.htm

For p As Integer = 0 To math.Ceiling(mxh  / prs) - 1

    Dim xuhao = 1

    For i As Integer = p * prs To math.min(mxh - 1,( p + 1) * prs - 1) 

        xuhao = xuhao + 1

    Next

Next

在红色代码的位置，加入xuhao的代码，看不懂？

For p As Integer = 0 To math.Ceiling(mxh  / prs) - 1

    Dim xuhao = 1

    For i As Integer = p * prs To math.min(mxh - 1,( p + 1) * prs - 1) 

        xuhao = xuhao + 1

    Next

Next

把xuhao定义在最外面

Dim xuhao = 1    -> 写到这个位置去

For p As Integer = 0 To math.Ceiling(mxh  / prs) - 1

    Dim xuhao = 1    -> 这句删除