Set adoRS = objData.GetValue("Hacchu")
objSheet.PageSetup.RightHeader = "整理番号:" & NullConvString(adoRS.Fields("BidNo").Value
objSheet.PageSetup.PrintTitleRows = "$" & CStr(cnITEM_HEADER) & ":" & "$" & CStr(cnITEM_HEADER)
objSheet.PageSetup.CenterFooter = "&/&N"
objSheet.PageSetup.Zoom = 100
objSheet.PageSetup.RightHeader = "整理番号:" & NullConvString(adoRS.Fields("BidNo").Value
objSheet.PageSetup.PrintTitleRows = "$" & CStr(cnITEM_HEADER) & ":" & "$" & CStr(cnITEM_HEADER)
页号显示的问题实现了吗,我这边在报表设计底部通过TextBox,并设置Value为="age " & Globals!PageNumber & " of " & Globals!TotalPages 就可以了,如还有问题把你的报表模板发给我调试一下吧