Excel VBA编程实现自动分页

最新推荐文章于 2024-05-28 22:27:44 发布

kendybear

最新推荐文章于 2024-05-28 22:27:44 发布

阅读量3.6k

点赞数 1

分类专栏： Excel VBA编程

本文链接：https://blog.csdn.net/kendybear/article/details/124883110

版权

ExcelVBA 自动分页编程实现打印设置宏

关键词由CSDN通过智能技术生成

Excel VBA编程专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Excel VBA编程实现自动分页

最近在学习Excel VBA编程，想实现自动分页功能。
一、需求
在表格的第1列中单元格值为“大标题”的前面插入分页符，实现自动分页功能，打印时分页打印。
二、代码实现

代码实现：
'定义一个过程 pagebreak
Sub pagebreak()
'
' pagebreak Macro
'首先定义一个计数器rw，从第2行开始遍历
'使用for…next循环进行遍历
'用if…then语句进行判断，在第1列值为"大标题"的前面添加分页符。
'
For rw = 2 To ActiveSheet.Rows.Count
If ActiveSheet.Cells(rw, 1).Value = "大标题" Then
    ActiveSheet.Cells(rw, 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next rw
End Sub

三、最终效果
在这里插入图片描述