Excel实战技巧47: 移除工作表分页线

2019-07-19 15:57:21 浏览数 (1)

学习Excel技术,关注微信公众号:

excelperfect

当我们对工作表进行打印预览或者打印操作后,工作表中会留下页面分界线,以指示工作表的分页情况,如下图1所示。

图1

有时,我不想看到这种点划线。此时,有3种方式来关闭它。

第1种:关闭工作簿后重新打开,分页线将自行关闭。

第2种:打开“Excel选项”对话框,在“高级”选项卡中找到“显示分页符”复选项,取消其前面的选择,如下图2所示。但是,这样做了以后,当使用打印预览时,就看不到分页符了。

图2

第3种:使用下面的VBA程序来除去分页线。

Sub RemovePageBreaks()

Dim wb As Workbook

Dim wks As Worksheet

Application.ScreenUpdating = False

For Each wb In Application.Workbooks

For Each wks In wb.Worksheets

wks.DisplayPageBreaks = False

Next wks

Next wb

Application.ScreenUpdating = True

End Sub

该程序遍历所有打开的工作簿,去掉每个工作簿中每个工作表的分页线。可以看到,Worksheet对象的DisplayPageBreaks属性控制分页线是否显示。代码中,外层的For Each循环遍历当前打开的所有工作簿,内层的For Each循环遍历工作簿中的工作表,然后将其DisplayPageBreaks属性设置为False,不显示分页线。

综合比较上述3种方法,个人觉得使用VBA代码更方便一些。

0 人点赞