[已解决]vba能不能给一个工作簿累计页码

hcy1185

一个工作簿中，除指定的工作表以外，页脚的页码按工作表的先后顺序累计计算页码

最佳答案

月排行榜 / 总排行榜

extyg

2012-10-23 12:30

指定工作表"封面"不参与页码计数:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As Integer
    Dim iCount As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
           if .name <>"封面" then
            .Activate
            .PageSetup.FirstPageNumber = iCount + 1
            iCount = iCount + Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
         end if        
End With
    Next
End Sub

跳转到最佳答案楼层

hwc2ycy

坐等答案。
貌似只能通过假页码或假页脚来实现。

extyg

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As Integer
    Dim iCount As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Activate
            .PageSetup.FirstPageNumber = iCount + 1
            iCount = iCount + Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
        End With
    Next
End Sub

hcy1185

extyg 发表于 2012-10-22 11:56
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As Integer
    Dim iCount As Integer ...

老师你好!
如何指定工作表"封面"不参与页码计数?请老师指教!谢谢!

leolee82

选择所需的工作表，打印所选工作表

extyg

指定工作表"封面"不参与页码计数:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As Integer
    Dim iCount As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
           if .name <>"封面" then
            .Activate
            .PageSetup.FirstPageNumber = iCount + 1
            iCount = iCount + Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
         end if        
End With
    Next
End Sub

hcy1185

extyg 发表于 2012-10-23 12:30
指定工作表"封面"不参与页码计数:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As I ...

老师你好!
把  If  .Name <>"封面" Then  改为  If Not .Name Like "*封面*" Then  对吗?