EXCEL自动插入打印分页符

1、依次点击excel“开发工具”——“Visual Basic”弹出“Microsoft Visual Basic-excel文件名称”VBA代码编辑器。

2、在如图所示位置点鼠标右键，选择“插入”——“模块”

3、成功建立了“模块1”

4、点击“工程”管理器中的“模块1”，在右侧的代码窗口中输入相应的代码，自动插入分页代码如下（斜体为注释）：Sub Njzhw_FY_AD()Dim rng As Range'从4行至25行进行分面操作；For Each rng In Range("A4:A25")'以“1”作为分页条件，在A列中的第4行至25行如果有1则在该处插入打印分页符If rng.Value = "1" Then'插入分页符ActiveSheet.HPageBreaks.Add rngEnd IfNextEnd Sub

5、代码输入后，点击1处的运行按纽，和2处的“运行“按纽。

6、点击如图1处可以反回Excel，点击2处可关闭VBA编辑器。

7、点击“视图”功能选项卡的分页预览，可以看到分页情况。从此表分析，台区名称共有5个，每个台区名称不超过1页，分为了5页正确。

8、如果分页不正常或经取消当前打印分页，可以取消当前分页，操作如下：点击“页面布局”——“分隔符”——“重设所有分页符”

9、重设所有分页符后此表又按默认进行分页，例表只有1页，再次分页点击“开发工具”——“Visual Basic”不修改代码直接点击3处的运行按纽，也可以修改代码后点击3处的运行，再次分好页。