JSA能不能添加页码

孙森峰

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

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

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

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

孙森峰

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