[求助]如何计算一页中的行数？结果因行高不同±1?

okmijn

Dim a(100) As Integer
    Dim m As Integer
    Dim p As Integer
    Dim q As Integer
    Dim 累计行高 As Double

    Dim 上边距 As Double
    Dim 下边距 As Double
    Dim 可打印长度 As Double





    可打印长度 = Application.CentimetersToPoints(19)

    累计行高 = 0
    m = 0

    For p = 1 To 199


        累计行高 = 累计行高 + Rows(p).Height


        If 累计行高 > 可打印长度 Then

            p = p - 1
            m = m + 1
            a(m) = p
            累计行高 = 0
         
        End If


    Next p

结果因行高不同±1?

单位转换的误差应该没那么大的啊！

还有没有其它的方法

okmijn

我也觉得这个问题比较烦

之前发过一个贴子就没有人复;

其实我以为分页问题还不少:

1\要清楚excel本身是如何分页的,它设定的行高是多少?

2\要固定了表头打印时是如何计算?页边距改变后如何计算?

3\一页宽的设定后,相关的一页行总高又是如何,这些没有清楚是不能用VBA找出页面的定的吧?

我也想有高手来看看如何办呢!

okmijn

楼主要做什么？
如果想知道某一页的行数，可以试试：
activesheet.HPageBreaks(i).Location.Row--第i个水平分页符所在的行号
以上只是一种思路。