主题：专业报表在分页时，怎么把表尾也带上？

 专业报表在分页时，怎么把表尾也带上？

 根据纸高自动分页的

 请问老师有思路吗？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.rar

 

此主题相关图片如下：a.png

 

还有一个问题就是签收人和签收日期对齐，因为开piao员有可能是二个字或者是三个字，造成对不齐了

 

一共二个问题，求老师帮助解决一下，谢谢

看到了， 非常感觉老师

 sss = sss & vbcrlf & "联系电话:"  &  Tables("打印设置").Current("电话")  & "                                                签收人:"
sss = sss & vbcrlf & "开单员:" & args(6)   & "                                                     时间:"

我想用命令加空格来对齐，老师加空格的命令是什么？

 老师用什么方法能调节页尾

sss = sss & vbcrlf & "联系电话:"  &  Tables("打印设置").Current("电话")  & "                                                签收人:" sss = sss & vbcrlf & "开单员:" & args(6)   & "                                                     时间:" 这几行的行间距呢？

 Dim s1 As String = " ".PadLeft(100)

老师，用这个方法，汉字和字母的间距不一样，有这个方法对不齐，还有更好方法吗？

 用表格,行间距太大了,没办法调

 老师,这样自然分页的能加上第几页共多少页,每页的小计吗?