在Excel文件头上设置初始页码,页码大于32767

在Excel文件头上设置初始页码,页码大于32767,excel,vba,Excel,Vba,在Excel文件头上设置初始页码,页码大于32767 我有3个巨大的excel表,必须打印页眉上的页码。第一个excel有35000页。我需要将第二页页眉上的初始页码设置为35.001,但当我尝试将初始页码设置为大于32767的值时,会出现错误。 我尝试使用VBA,但无法向页眉上的页码添加任何整数: sub test() ActiveSheet.PageSetup.CenterHeader = "&P+35000" end sub 我得到的唯一结果是在页码后面加上“35000” 错误:

在Excel文件头上设置初始页码,页码大于32767

我有3个巨大的excel表,必须打印页眉上的页码。第一个excel有35000页。我需要将第二页页眉上的初始页码设置为35.001,但当我尝试将初始页码设置为大于32767的值时,会出现错误。
我尝试使用VBA,但无法向页眉上的页码添加任何整数:

sub test()
ActiveSheet.PageSetup.CenterHeader = "&P+35000"
end sub
我得到的唯一结果是在页码后面加上“35000”


错误:“整数无效”

页码的最大数字是整数,在Excel中不能大于32767。但是,如果您在VBA中设置了Long,则可以将其馈送到页面设置

Sub Macro1()
Dim StartPage As Long

StartPage = 35000

    With ActiveSheet.PageSetup
        .FirstPageNumber = StartPage
    End With
    Application.PrintCommunication = True
End Sub

我不得不问:你究竟为什么要打印一份35000多页的工作表?