EXCEL自动插入打印分页符

操纵excel宏按照前提判定主动插入打印分页符。操纵下表举列主动分页设置。分页完当作后如图结果。

工具/原料

• Microsoft Office Excel 2007

方式/步骤（分页）

1. 1

   依次点击excel“开辟东西”——“Visual Basic”弹出“Microsoft Visual Basic-excel文件名称”VBA代码编纂器。

   
2. 2

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

   
3. 3

   当作功成立了“模块1”

   
4. 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 rng

     End If

   Next

   End Sub

   
5. 5

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

   
6. 6

   点击如图1处可以反回Excel，点击2处可封闭VBA编纂器。

   
7. 7

   点击“视图”功能选项卡的分页预览，可以看到分页环境。从此表阐发，台区名称共有5个，每个台区名称不跨越1页，分为了5页准确。

   
8. 8

   若是分页不正常或经打消当前打印分页，可以打消当前分页，操作如下：

   点击“页面结构”——“分隔符”——“重设所有分页符”

   
9. 9

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

   

方式/步骤（表头）

1. 1

   设置打印的表头，点击“页面设置”——“打印题目”会弹出“页面设置”对话框，在打端题目行处进行打印表头设置，可以在3处直接输入，也可以点击4处进行鼠标拖拽操作，最后点击5处确认，确认前也可以先点击6处进行预览。

   
2. 2

   最终结果

   

注重事项

• 第四步中的代码应跟据分歧的表进行设备，一是注重分面规模，二是分页标记