VBA Excel - 頁眉和頁腳動態頁碼（頁數）

Question

我希望打印一份excel文檔，其中每個未隱藏的頁面都有關聯的頁碼，這樣當我打印時，頁碼從第一頁的1開始，2第二張紙等等。

注意：我也有一些隱藏的表單隱藏在這裏和那裏，因此頁碼只能依賴於未隱藏的表單。

雖然使用下面的代碼，當我選擇所有工作表並打印活動工作表時，頁碼不會從一個工作表更改爲另一個工作表，而是等於每個工作表一個。

有關如何解決此問題的任何想法？

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