学习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代码更方便一些。