Question

有人知道您是否可以在Excel VBA中删除自动分页符吗？我终于找到一篇文章，说你不能，但我想确认一下。我有点失望，这在VBA中无法完成。

此代码在子例程中似乎可以删除用户插入的分页符或手动分页符，但不能自动删除Excel插入的分页符。

For nCtr = 1 To ActiveSheet.HPageBreaks.Count
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlUp, RegionIndex:=1
Next

For nCtr = 1 To ActiveSheet.VPageBreaks.Count
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Next

有想法吗？

Answer 1

我认为，“控制”自动分页符的唯一方法是修改PageSetup属性和列\行的宽度。

With ActiveSheet.PageSetup
    .Zoom = False
    .FitToPagesWide = 1 'Set with to 1 page
    .FitToPagesTall = False 'Set height to Automatic
End With

Rows(1).RowHeight = 32
Columns(1).ColumnWidth = 25

在VBA中删除自动分页符

1 个答案: