在Excel文件的标题上设置初始页码，该页码应大于32767

Question

在Excel文件的标题上设置初始页码，其编号应大于32767

我有3个巨大的Excel工作表，必须在页眉上打印页码。第一个excel有35.000页。我需要将第二张纸页眉上的初始页码设置为35.001，但是当我尝试将初始页码设置为大于32767的值时，发生错误。
我尝试使用VBA，但无法在页眉的页码上添加任何整数：

sub test()
ActiveSheet.PageSetup.CenterHeader = "&P+35000"
end sub

我得到的唯一结果是在页码后附加了“ 35000”。

错误：“整数无效”

Answer 1

页码的最大数字是整数，在Excel中不能大于32767。但是，如果在VBA中设置Long，则可以将其输入页面设置

Sub Macro1()
Dim StartPage As Long

StartPage = 35000

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