JSA能不能添加页码

孙森峰

请问大神们，JSA能不能在单元格添加页码。

另外，合并的列在分页后能不能用代码在分页处断开


补充内容 (2024-9-19 09:13):
已经可以正确处理分页2页的情况

补充内容 (2024-9-19 09:16):
请查看8楼

补充内容 (2024-9-19 13:24):
已经可以处理多页情况，请查看9楼

补充内容 (2024-9-20 09:44):
代码精简合并，最终版本，请见10楼

LIUZHU

没有附件，怎么解决？

孙森峰

似水无痕老师，请帮忙！

孙森峰

现在的问题是一旦内容多了，需要分页，如何能用代码断开右侧备注，将下面的线画上
另一个分页后再合适的地方注明页码，不需要页眉页脚的那种，因为纸面没有余地

孙森峰

似水无痕老师，这样应该可以搞明白
  Application.Worksheets.Item("通知单").Activate()
  Application.ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address()
Debug.Print('PrintArea='+Application.ActiveSheet.PageSetup.PrintArea)
Debug.Print('Pages.Count='+Application.ActiveSheet.PageSetup.Pages.Count)
Debug.Print('HPageBreaks.Count='+Application.ActiveSheet.HPageBreaks.Count)
Debug.Print('Location='+Application.ActiveSheet.HPageBreaks.Item(1).Location.Address())
---------------------------------------------------------------------------------------------------------------
$A$4:$N$38
Pages.Count=2
HPageBreaks.Count=1
Location=$A$31

我们可以得到页数，可以得到分页符位置

孙森峰

这个问题似乎有难度，表头内容不能改变，看起来只有页脚加上页码了

孙森峰

报表已经可以分页，并将下面的横线堵上。
请大神们帮忙将右侧合并单元格拆分，并根据分页线再次合并（每页合并成一个部分）

孙森峰

已经可以正确处理分页2页的情况

孙森峰

已经可以处理多页情况
每页添加页码还是个困难问题，不知道哪位大神有解决办法

孙森峰

已经将2页以上代码合并，并精简代码， 最终版本
测试时只需增删空行即可