插入分页符，谢谢蓝桥玄霜老师！

leroy · 发表于 2010-9-1 13:11

我的工作表里面有多个表格。
为了节省纸张，
允许把多个表格打印在同一页上，
但是不希望将一个表格被打印到两页。
请老师帮忙解决分页符的问题，谢谢！

下面这个链接应该有帮助，供参考：
http://club.excelhome.net/viewthread.php?tid=526603

[ 本帖最后由 leroy 于 2010-9-1 17:20 编辑 ]

leroy · 发表于 2010-9-1 13:53

我通过以下代码重置了分页符，

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.ResetAllPageBreaks
r = [G65536].End(xlUp).Row
For i = 1 To r
If Cells(i, "G") = "ZZ-ABCD" Then ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
Next
End Sub

接下来不知道怎么删除多余的分页符，盼指教。

leroy · 发表于 2010-9-1 15:30

这似乎是个鱼与熊掌难以兼得的问题，^_^
谢谢lb_bn 老师！

lb_bn · 发表于 2010-9-1 15:16

Private Sub CommandButton1_Click()
ActiveSheet.ResetAllPageBreaks
r = [G65536].End(xlUp).Row
For i = 2 To r
If Cells(i, "G") = "ZZ-ABCD" Then ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
Next
End Sub

蓝桥玄霜 · 发表于 2010-9-1 15:18

Private Sub CommandButton1_Click()
Dim Myr&, m&, i&, Arr1(), r%, n&
On Error Resume Next
ActiveSheet.ResetAllPageBreaks
Myr = [G65536].End(xlUp).Row
m = 45
For i = 1 To Myr
If Cells(i, "G") = "ZZ-ABCD" Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = i
End If
Next
For i = 1 To r
n = Arr1(i)
If n > m Then
ActiveSheet.HPageBreaks.Add Before:=Cells(Arr1(i - 1), 1)
m = Arr1(i - 1) + 44
End If
Next
End Sub

复制代码

leroy · 发表于 2010-9-1 15:25

谢谢蓝桥玄霜老师！代码还不太明白，留待好好消化。
顺便请教下，Excel自身不能判断每页最多容纳多少行是吗？感觉这是个变通的方法，

[ 本帖最后由 leroy 于 2010-9-1 15:27 编辑 ]

lb_bn · 发表于 2010-9-1 15:28

你不设置分布符,它才会自动判断啊.

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

[已解决] 插入分页符，谢谢蓝桥玄霜老师！

回复 6楼 lb_bn 的帖子

每页不超过45行

回复 4楼蓝桥玄霜的帖子

回复 5楼 leroy 的帖子

[已解决] 插入分页符，谢谢蓝桥玄霜老师！

回复 6楼 lb_bn 的帖子

每页不超过45行

回复 4楼 蓝桥玄霜 的帖子

回复 5楼 leroy 的帖子

回复 4楼蓝桥玄霜的帖子