VBA Excel – 页眉和页脚dynamic页码（页数）

我希望有一个Excel文档，其中每个非隐藏的页面都有相关的页码，这样，当我打印时，页码从1开始，第一张开始，第二张开始，等等。

注：我也有一些隐藏的表单隐藏在这里和那里，这样的页码只能依赖于隐藏的表单。

尽pipe使用下面的代码，当我select所有工作表并打印活动工作表时，页码不会从一个工作表变为另一个，而是等于每个工作表一个。

有想法该怎么解决这个吗？？？

Sub headersfooters() Dim index As Integer Dim ws As Worksheet index = wsVolumes.Range("k4") Select Case index Case Is = 1 For Each ws In ActiveWorkbook.Worksheets ws.Visible ws.PageSetup.RightHeader = "French" ws.PageSetup.RightFooter = "&P" Next ws End Case Else For Each ws In ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = "English" ws.PageSetup.RightFooter = "&P" Next ws End End Select End Sub 

谢谢！！

Answer 1

什么想法使用ws.PageSetup.FirstPageNumber？

 Sub headersfooters() Dim index As Integer Dim ws As Worksheet Dim n As Integer index = wsVolumes.Range("k4") Select Case index Case Is = 1 For Each ws In ActiveWorkbook.Worksheets ws.Visible ws.PageSetup.RightHeader = "French" ws.PageSetup.RightFooter = "&P" n = n + 1 ws.PageSetup.FirstPageNumber = n Next ws Case Else For Each ws In ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = "English" ws.PageSetup.RightFooter = "&P" n = n + 1 ws.PageSetup.FirstPageNumber = n Next ws End Select End Sub