设置分页符的代码有时出错，

mxf21cn

Private Sub CommandButton2_Click()
' 按成绩排序打印 Macro
'    以下为页面设置代码
        ActiveSheet.PageSetup.PrintArea = "$A$2:$E$247"
        num = 5 '实际应为程序根据人数计算出来（246人/50人=5页）
        For i = 1 To (num - 1)
        Set ActiveSheet.HPageBreaks(i).Location = Range(Cells((i * 50 + 2), 1), Cells((i * 50 + 2), 1))
        Next
'    以下为打印代码，已屏蔽
'    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

以上代码可以执行，以下代码就不能执行，红色部分出错
红色的代码在页面有6页（分页预览视图中，以下同）及以上时不出错，但执行过上面的代码后 （页面设置为4页时）在执行下面的代码，红色部分肯定报错，而人数比较多班级比较少时不报错，人数多，班级也多时也会报错

Private Sub CommandButton1_Click()
' 按班级排序打印 Macro
'以下为页面设置代码
    Dim rmin '班级的起始行,由程序控制获得
    Dim rmax '班级的结束行,由程序控制获得
    num = 6 '实际应为程序根据班级号计算出来共六个班所以等于6
    ActiveSheet.PageSetup.PrintArea = "$A$2:$E$247"
      For i = 1 To (num - 1)
    rmin = i + 1        '应为程序获得，本文为方便，使用简单计算
    rmax = i * 49 + 2   '应为程序获得，本文为方便，使用简单计算
    Set ActiveSheet.HPageBreaks(i).Location = Range(Cells(rmax, 1), Cells(rmax, 1))
    Next
   '以下为打印代码，已屏蔽
'    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub


请高手指点，能给个合适的解决方案。

[ 本帖最后由 mxf21cn 于 2009-12-20 22:00 编辑 ]

mxf21cn

怎么没人回呀！唉！
自己顶！！

LangQueS

建议楼主对需求做一些文字说明。

mxf21cn

主要的内容是实现点击“按班级排序打印”按钮可实现，按学号升序排列后，按班级自动分页，
                点击“按总分排序打印”按钮可实现，按总分降序排列后，按名次（50名/页），自动分页；
并且两按钮交互点击时不会出错。

LangQueS

按名次分页时，如果多名人员分数(名次)相同如何分？

cflood

因为原文档只有4个分页符，执行HPageBreaks(5)肯定下标越界
试试    ActiveSheet.HPageBreaks.Add Cells(rmax, 1)

LangQueS

仅供参考：

http://club.excelhome.net/redire ... 728&ptid=526622

mxf21cn

原帖由 LangQueS 于 2010-1-15 23:59 发表
按名次分页时，如果多名人员分数(名次)相同如何分？

不用管分数或名次，每页只有50人，同名次序号在后的，排在下一页。

mxf21cn

我知道可以用.add 来实现添加分页符，可什么时候用Set ActiveSheet.HPageBreaks(i).Location，又该什么时候用ActiveSheet.HPageBreaks.Add Cells(rmax, 1) ，这个我就不知该如何进行判断，才导致代码出错。也就是11页—>9页，什么时候用.add 什么时候用HPageBreaks(i).  反过来11页<—9页，又该如何用？  这个算法才是我把代码发出来的主要目的。

cflood

都用HPageBreaks.Add 就行，再次运行时先ActiveSheet.ResetAllPageBreaks 清除你添加的分页符