欢迎光临草根哥
www.cgg6.com

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、错误纠正

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

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

 

赞(0)
版权声明:
文章名称:《Cass软件生成界址点成果表,利用宏命令批量添加分页符》
文章链接:http://www.cgg6.com/6224.html
声明:文章版权归本站自创作者所有,未经允许不得转载

评论 抢沙发

评论前必须登录!