怎样使一个工作表的分页符超过1024

lhm667788 · 发表于 2009-7-5 20:26

Sub AddHPageBreaks()
Dim i As Long
With Sheets("sheet1")
      For i = 1 To .[A65536].End(xlUp).Row
         If .Cells(i + 1, 1) <> .Cells(i, 1) Then _
            .HPageBreaks.Add Before:=.Cells(i + 1, 1)
      Next i
End With
End Sub

LangQueS · 发表于 2009-7-5 20:42

建议楼主设置打印表，动态引用数据完成打印。

hessen · 发表于 2010-9-26 23:10

原帖由 LangQueS 于 2009-7-5 20:42 发表
建议楼主设置打印表，动态引用数据完成打印。

请问是怎么个动态引用法？我也碰到了类似的问题，请帮忙解决下！

原因找到了：原因是2003限制：分页符个数水平方面1000个垂直方向1000个

[ 本帖最后由 hessen 于 2010-9-27 16:45 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 怎样使一个工作表的分页符超过1024