如何用VBA完成打印时当每页的第23-29行中任一行的B列出现合计时，在其后面添加分页符。

Question

如何用VBA完成 打印时
当每页的第23-29行中任一行的B列出现 合计时，在其后面添加分页符。

Answer 1

你描述的问题不尽祥细，只能给你个大概的思路。

1. 在你进行合计的行最好在A列写上 ”合计：“  

2. 历遍每个工作表。

3. 在工作表中，以从上到下方式进行寻找 ”合计：“字符，找到后记录行号做为分割行以方面做第一页结束行/第二页的首行（如：寻找到23A列 行有”合计：” 字符，那么记录值为23）###设定一个寻找区域从第一页结束行开始到最后一行再次行寻找，直到没找到为止。打印成后转第二个工作表，直到所有工作表完成#####

4. 设置打印区域ActiveSheet.PageSetup.PrintArea = "A1:L23" ，把区域设个值，做成动态的。

总的理念就是，在A列  以寻找 ”合计：“  字符  定位，进行分页，设置打印区域