VBA怎样删除工作表的所有分页符

[cuiyue4420]

我要编程完成用户自定义分页，所以在此之前要删除工作表中的所有分页符（包括自动和手工的）
我原来的做法是，好像容易出错
With Worksheets(1)
.ResetAllPageBreaks
.VPageBreaks.add .Range("b2")
.HPageBreaks.add .Range("b2")
.VPageBreaks(1).DragOff xlToRight, 1
.HPageBreaks(1).DragOff xlDown, 1
End With

iTemp = "A" & iRowStart + iPaginDiv
sTemp1 = iRowStart + iPaginDiv
Do While sTemp1 < iRowEnd
With Worksheets(1)
.HPageBreaks.add .Range(iTemp) '水平分页符
End With
sTemp1 = sTemp1 + iPaginDiv
iTemp = "A" & sTemp1
Loop

iTemp = sColEnd & "1"
Range(iTemp).Offset(0, 1).Activate
With Worksheets(1)
.VPageBreaks.add .Range(Selection.Address) '垂直分页符

End With

[cuiyue4420]

ding

[cuiyue4420]

居然没人知道啊

[ChinaOBS]

ActiveSheet.HPageBreaks(1).Delete'删除水平分页符
ActiveSheet.VPageBreaks(1).Delete'删除垂直分页符

[ChinaOBS]

好像应该是 ActiveSheet.ResetAllPageBreaks

[ChinaOBS]

取消自动分页符：ActiveSheet.DisplayPageBreaks = false 即可。
取消手动分页符：ActiveSheet.ResetAllPageBreaks

[cuiyue4420]

ActiveSheet.ResetAllPageBreaks以后还是有分页符在啊，特别是垂直分页符，如果不把原来的分页符清干净的话，我程序设的分页符就会和原来的交叉起来，就错了

[cuiyue4420]

而且ActiveSheet.ResetAllPageBreaks后会出现原来没有的垂直分页符

[cuiyue4420]

up

[yigepure]

录一个重置所有分页符的宏就可以了.

[cuiyue4420]

楼上的,那个宏我知道啊.ResetAllPageBreaks,请注意看贴

[cuiyue4420]

d

[guww]

ding