我要投稿 | RSS
您当前的位置:首页 > 888 > 456(1)
文件名称: 页面布局下抽分页(使用宏VBA批量插入分页)结合对账单使用方便打印对账单
文件类型: xlsx
文件大小:
需要点数: 0 点
难易等级:
作 者 :
使用说明:  

  下面是使用wps软件,来进行一下页面布局下的分页符操作演示。

  在没有进行分页符操作前,打印预览是由excel表格默认的,如下图,序号19以前的内容都在一张纸上显示。如下图:

  在选择对应的单元格后,再点击页面布局下的分页符,在展开的分页符中,点击插入分页符,会在选择的单元格上边框线上,生成分页符。

  如上图中的序号5下边框的一条虚线,表示的就是分页,操作完excel表格的分页后,再进行打印预览,会以分页符所在的位置进行分页打印显示。

  预览第一张只显示序号5前面的内容,如下图:

  第二页显示的是序号6到序号11的内容:

  余下的就是第三页内容了,在此不再上传截图内容。

  如果要取消已经插入的所有的分页符,可以通过页面布局菜单下的分页符,分页符下面的“重置所有分页符”选项,之前已经设置的分页符就可以全部取消。

  问题:在实际工作中,对于一个表格,我们需要设置有规则的行数进行打印的时候,如果一个一个设置分页符,效率比较低,那我们可以使用vba,也就是excel表格的宏进行批量插入分页符。

  方法二,我们先来看一下动画演示操作

  通过开发工具,宏,运行,就可以进行按每5行进行一次分页进行批量处理。如果是对账单模板,那么通过这种方式,我们可以很快进行设置完成,且在打印时,不会出现一张多个公司的情况。

  宏代码一的内容:

  Sub 批量插入分页方法一()

  For i = 6 To 24 Step 5

  ActiveSheet.HPageBreaks.Add before:=Range("A" & i)

  Next

  End Sub

  宏代码二的内容:

  Sub 批量插入分页方法二()

  For i = 6 To 24 Step 5

  ActiveSheet.HPageBreaks.Add before:=Cells(i, 1)

  Next

  End Sub

  虽然代码有一点不同,但效果一样。

  使用方法,如果要第10行生成一个分页,那需要把上面的6,改成11,然后而后的5改成10就可以了。同时,to后面的值,要看你需要在Excel表格的多行少之前生成分页,如果是200行前生成,则需要把上面的24改成200就可以了。

下载地址: [ 下载地址1 ] (要求用户组为: 普通会员 ,扣减点数为: 0点 )
下载帮助: 发表评论 加入收藏夹 错误报告
相关软件: 无相关信息
下载说明: ⊙推荐使用网际快车下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
⊙如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
⊙下载本站资源,如果服务器暂不能下载请过一段时间重试!
⊙本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。
推荐下载
最后更新
热门点击