[已解决]分页符的问题.请高手看如何改

跑跑2014

请教问题出在哪,只能部分有分页符, 如何修改.请教高人,多谢了.

最佳答案

月排行榜 / 总排行榜

zjdh

2014-6-25 09:00

问题出在你的表中D列有空单元，所以：

Sub 加分页符八()
    Application.ScreenUpdating = False
    Sheet110.ResetAllPageBreaks
    Dim i As Integer
    For i = 2 To Range("D65536").End(3).Row
        If Sheet110.Cells(i, 4).Value Like ("制表：*") Then Sheet110.HPageBreaks.Add Before:=Sheet110.Cells(i + 1, 1)
    Next
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

zjdh

问题出在你的表中D列有空单元，所以：

Sub 加分页符八()
    Application.ScreenUpdating = False
    Sheet110.ResetAllPageBreaks
    Dim i As Integer
    For i = 2 To Range("D65536").End(3).Row
        If Sheet110.Cells(i, 4).Value Like ("制表：*") Then Sheet110.HPageBreaks.Add Before:=Sheet110.Cells(i + 1, 1)
    Next
    Application.ScreenUpdating = True
End Sub

tgydslr

zjdh 发表于 2014-6-25 09:00
问题出在你的表中D列有空单元，所以：

Sub 加分页符八()

如何避免这个问题

跑跑2014

zjdh 发表于 2014-6-25 09:00
问题出在你的表中D列有空单元，所以：

Sub 加分页符八()

非常感谢!