主题：汇总打印

没看懂你的意思。你是想只打印统计的行？

那建议你用分组统计 http://www.foxtable.com/webhelp/scr/0158.htm

参考

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
    If Typeof c Is prt.RenderTable Then
        For i As Integer = 0 To c.Rows.count-1
            If c.cells(i,1).text Like "*计" Then
                c.cells(i,1).SpanCols = 5
            End If
        Next
    End If
Next
doc.Preview()