如何用VBA宏实现按特定规则的打印？

[lyshrine]

一个文档，如图所示：

现需要打印到A4纸，根据人名，一个人打印一页。
例如图示。



可以通过在每个姓名的单元格里 页面布局->分隔符->插入分页符 实现。
先想通过VBA自动实现该功能，请问如何实现，对VBA以前没接触过，望高手指点。
打印的每页也需要把title行加上，每个人的行数不定。
我思路是从第二行开始遍历A列，如果单元格上有姓名就插入分页符，没有就继续往下找。
但如何判断结束还未想好，比如连续200行还没找到单元格有内容的就认为结束。
如果要打印的每页都带title这一行，是不是需要控制锁定单元格啥的？
另外是不是需要一个模版，每次都把文件内容根据模版复制一份？

[赵4老师]

在Excel中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[muruku_x]

可以具體一點嗎
因為沒有上傳檔案
可以傳一下你希望
Vba幫你執行后的樣子嗎

[MickeyLee93]

因为前段数据格式是相同的，因此可以在另一个表做一个模板，模板需要按照A4纸的格式把打印区域设置好，然后批量打印就好。