将RS里的数据 导入到vsflexgrid里 然后进行打印。我在代码中打印页脚时用的式是         
vp.Footer = "|打印日期: " & Format(Now, "yyyy年mm月dd日") & "| 第 %d 页        ."
vp.Footer = PrintFooter
此时打印的脚注在页面的最下面。我想得到动态的页脚,就是页脚随页面数据的多少而上下移动。请问怎么能实现?