主题：Table打印时如何实现页合计和总合计？

Table打印时（不是报表打印），能否在每一页的最下面一行打印数值列的页合计？以及在最后一页打印数值列的总合计？，这种需求是很经常遇到的。注意当打印的是选定行（不是全部行）时，总合计应合计实际打印的行，而不是表的全部行。

(个人理解)要自已做报表，猜不太可能在表打印中能实现:
    表的打印设置中只支持几个特殊编码


 

尽管Table的打印不像报表打印那么复杂，但在每一张加个页合计，在最后一页加一个总合计，这在实际中是很常用的功能！让系统自动生成应该也没有太大的难度，但若系统不提供这个功能，打印出来再手工用计算器来加，估计工作量可不小啊！希望贺老师认真考虑！

贺老师，这个问题好不好实现？

一切皆有可能，我做了一个简单的例子，每页打印30行，每页最后加上数量汇总，你可以参考一下：

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

点击浏览该文件:管理项目23.table

文件的报表代码有一些问题，用下面的：

Dim doc As New PrintDoc
Dim tb as Table = Tables("订单")
Dim ColNames As String() = New String(){"产品", "日期", "数量"}
Dim PageRows As integer = 30 '每页打印30行
Dim Pages As Integer = Math.Ceiling(tb.Rows.Count / PageRows) '获得总页数
Dim Sum As Integer
For Page As integer = 0 To Pages -1
    Dim StartRow As Integer = Page * PageRows
    Dim EndRow As integer =  Math.Min((Page + 1) * PageRows - 1,tb.Rows.Count - 1)
    Sum = 0
    Dim rt As New prt.RenderTable
    For c As Integer = 0 To ColNames.Length - 1
        rt.Cells(0,c).Text = ColNames(c)
    Next
    For r As integer = StartRow to EndRow
        Sum = Sum + tb.rows(r)("数量")
        For c As Integer = 0 To ColNames.Length - 1
            rt.Cells(r - StartRow + 1, c).Text = tb.Rows(r)(ColNames(c))
        Next
    Next
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
    doc.Body.Children.Add(rt)
    Dim rx As New prt.RenderText
    rx.Text = "数量合计: " & Sum
    rx.Style.Spacing.Top = 5
    If EndRow < tb.Rows.Count - 1 Then
        rx.BreakAfter = prt.BreakEnum.Page
    End If
    doc.Body.Children.Add(rx)
Next
doc.Preview()

不错，学习了！

    试过了，老六一出手，肯定可以实现，但我的意思不是这样。我的建议是，只要点菜单上的打印时，就自动合计当前表的当前视图的每个数值列的页合计和总合计，别让我们再写30多行的代码了，只需要对表增加一项属性“打印时是否打印页合计”就可以了，这样既可以自动实现，也不会影响不需要打印合计的情况！这是很常用、使用频率很高的功能，不应该让每个用户在每次使用时都反复编写这几十行代码，直接加在系统的功能上，您的一次辛苦，方便了所有人，节约了所有人的时间，岂不更好吗？

问题不是这么简单，这个是必须写代码的。
代码是通用的，复制过来，改改列名就行，当然能自己理解就好。

  没有太明白，既然代码是通用的，只是引用的列名不同，写到系统中应该是很简单的，怎么会不能加到系统中呢？