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