flexcell 如何设置打印页尾？

[fly_wzg]

Dim objReportTitle As FlexCell.ReportTitle
Set objReportTitle = New FlexCell.ReportTitle
objReportTitle.Text = "报价单"
objReportTitle.Font.Name = "Times New Roman"
objReportTitle.Font.Size = 20
objReportTitle.PrintOnAllPages = True
Grid1.ReportTitles.Add objReportTitle

上面的代码是打印表头，我要打印表尾怎么设置？比如在最后一页表尾加上日期。

谢谢

[hehaiyi2008]

可以通过设置FlexCell页脚来实现

Grid2.PageSetup.Footer = "打印时间：" & Date & " " & Time  

[fly_wzg]

to hehaiyi2008

Grid2.PageSetup.Footer = "打印时间：" & Date & " " & Time

这是页脚，每页都显示。我只需要在最后一页显示，并且紧跟表格。

如何处理谢谢

[fly_wzg]

我顶，老鸟们都来啊

[fly_wzg]

我顶