如何把excel文件设置成奇数页码?具体讲就是第1、2、3、4……页显示出来的页码分别为1、3、5、7……

2025-04-13 20:24:22
推荐回答(1个)
回答1:

如果是想打印出来显示的,可以用VBA设置任意页码,请参考下面代码:
Sub 设置奇数页脚()
t = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To t
ActiveSheet.PageSetup.CenterFooter = "第" & i * 2 - 1 & "页"
ActiveSheet.PrintOut From:=i, to:=i
Next
End Sub