Cass软件生成界址点成果表，利用宏命令批量添加分页符

一

背景原因

Cass软件生成界址点成果表的时候，分页符不会自动调整，打印的时候需要手动调整，页数多的时候非常麻烦。

二

解决方法

利用VB宏命令，批量添加分页符，快速高效的分页。

 

三

具体步骤

1、切换到分页视图。

 

 

2、在活动的sheet上右键选择查看代码。

 

 

打开之后是这个界面

 

 

3、在代码框填入以下代码。

 

Sub分页() For i = 84 To 8158 Step 85 ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1) Next End Sub

 

 

 

注意缩进和空格，点击红圈里的按钮，再点击运行就可以进行分页

 

 

4、代码参数解释。

 

 

该代码仅涉及3个参数，下面一一做解释。

(1)．i=84表示的是从84行开始加分页符；

(2)．To 8158表示的是需要加分页符的最后一页；

(3)．Step 85表示是每隔多少行加一个分页符。

这三个参数，需要根据实际情况进行更改。

5、错误纠正

很多时候，直接填写参数，可能会不正确，就会添加错误的分页符。这时候我们就要先清除所有分页符，再重新运行我们的宏命令。

重设所有分页符的方法：分页视图中右键选择重设所有分页符即可。