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

mxf21cn

Sub 分页符()
ActiveSheet.ResetAllPageBreaks    '当前表重置所有分页符
For Each r In ActiveSheet.Range("c2:c" & [c65536].End(xlUp).Row)    '针对C2单元至C列最后非空单元区域形成数组循环
    If r.Value <> "" And r.Value <> r.Offset(-1, 0).Value Then    '如果某单元内容不等于其上面一个单元
的内容，则……
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=r    '在该单元处插入分页符
    End If    '结束判断
Next    '结束循环
End Sub
这段代码如果某班的人数超过了自动分页所能现实的班级数，就会出错（一个班被分为两页）

[ 本帖最后由 mxf21cn 于 2010-1-16 00:32 编辑 ]

cflood

哪就对了，一页放不下当然要分成2页

mxf21cn

原帖由 cflood 于 2010-1-16 07:59 发表
哪就对了，一页放不下当然要分成2页

可我希望的按班级分页打印，一个班级必须在一页当中（缩小打印）。