\'设置排序条件
Tables("DingDanMingXi").Sort = "DingDanMingXi_TianMaHao" \'排序列用
\'输出报表
Dim doc As New PrintDoc \'定义一个新报表
Dim rt As prt.RenderTable \'定义一个表格
Dim tb As Table = Tables("DingDan.DingDanMingXi") \'指定数据来源
\'指定报表显示列
Dim aPageCount As Integer = 15 \'每页打印的行数
Dim ColNames() As String = {"DingDanMingXi_TianMaHao","DingDanMingXi_ShangPinMingCheng","DingDanMingXi_ShuLiang","DingDanMingXi_PiFaJia","DingDanMingXi_PiFaJinE","DingDanMingXi_LingShouJia","DingDanMingXi_LinShouJinE"，DingDanMingXi_TuPian}
Dim sum1 As Double = 0
Dim sum2 As Double = 0
Dim sum3 As Double = 0
Dim sum1z As Double = 0
Dim sum2z As Double = 0
Dim sum3z As Double = 0
For i As Integer = 0 To tb.Rows.Count - 1
    If i Mod aPageCount = 0 Then   \'换页
        If i <> 0 Then   \'统计
            rt.Cells(aPageCount + 1, 0).Text = "小计"
            rt.Cells(aPageCount + 1, 3).Text = sum1
            rt.Cells(aPageCount + 1, 5).Text = sum2
            rt.Cells(aPageCount + 1, 7).Text = sum3
            sum1 = 0
            sum2 = 0
            sum3 = 0
        End If
        rt = new prt.RenderTable \'定义一个新表格
        rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded \'表格宽度超出页宽时,可以水平换页
        rt.Style.Font = tb.Font
        rt.Style.Gridlines.All = New prt.LineDef(Color.Gray)
        rt.CellStyle.Spacing.All = 2 \'单元格内距设为0.5毫米
        rt.Rows(0).Style.BackColor = Color.lightGray
        rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第一行内容水平居中
        rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All   \'利用行组,将第一行设为表头
        rt.BreakBefore = prt.BreakEnum.Page
        rt.Cols(0).Width = 8 \'设定报表的列数
        For j As Integer = 0 To colNames.Length - 1 \'逐列设置和填入内容
            rt.Cells(0, j+1).Text = colNames(j) \'Caption Names
            rt.Cols(j+1).Width = tb.Cols(colNames(j)).PrintWidth \'列宽等于实际列宽
            If tb.Cols(colNames(j)).IsNumeric OrElse tb.Cols(colNames(j)).IsDate Then \'如果是数值或日期列
                rt.Cols(j+1).Style.TextAlignHorz = prt.AlignHorzEnum.Right \'数据水平靠右
                rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第1列内容居中
                rt.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第2列内容居中
                rt.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第3列内容居中
                rt.Cols(3).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第4列内容居中
                rt.Cols(4).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第5列内容居中
                rt.Cols(5).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第6列内容居中
                rt.Cols(6).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第7列内容居中
                rt.Cols(7).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第8列内容居中
                rt.Cols(0).Width = 9
                rt.Cells(0,0).Text = "序号"
                rt.Cols(1).Width = 10 
                rt.Cells(0,1).Text = "条码号"
                rt.Cols(2).Width = 32
                rt.Cells(0,2).Text = "商品名称"
                rt.Cols(3).Width = 10
                rt.Cells(0,3).Text = "数量"
                rt.Cols(4).Width = 10
                rt.Cells(0,4).Text = "批发价"
                rt.Cols(5).Width = 10
                rt.Cells(0,5).Text = "批发金额"
                rt.Cols(6).Width = 10
                rt.Cells(0,6).Text = "零售价"
                rt.Cols(7).Width = 10
                rt.Cells(0,7).Text = "零售金额"
                rt.Cols(8).Width = 10
                rt.Cells(0,8).Text = "图片"
            End If
            rt.Cells(0, j+1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        Next
        doc.Body.Children.Add(rt) \'将表格加入到报表
    End If
   
    For j As Integer = 0 To colNames.Length - 1       
        rt.Cells(i Mod aPageCount + 1, 0).Text = i + 1
        rt.Cells(i Mod aPageCount + 1, j+1).Text = tb.Rows(i)(colNames(j))
    Next
    sum1 += tb.Rows(i)("DingDanMingXi_ShuLiang")
    sum2 += tb.Rows(i)("DingDanMingXi_PiFaJinE")
    sum3 += tb.Rows(i)("DingDanMingXi_LingShouJinE")
    sum1z += tb.Rows(i)("DingDanMingXi_ShuLiang")
    sum2z += tb.Rows(i)("DingDanMingXi_PiFaJinE")
    sum3z += tb.Rows(i)("DingDanMingXi_LingShouJinE")
Next
For j As Integer = tb.Rows.Count Mod aPageCount To aPageCount
    rt.Cells(j, 0).Text = j
Next
rt.Cells(aPageCount + 1, 0).Text = "小计"
rt.Cells(aPageCount + 1, 3).Text = sum1
rt.Cells(aPageCount + 1, 5).Text = sum2
rt.Cells(aPageCount + 1, 7).Text = sum3
rt.Cells(aPageCount + 2, 0).Text = "总计"
rt.Cells(aPageCount + 2, 3).Text = sum1z
rt.Cells(aPageCount + 2, 5).Text = sum2z
rt.Cells(aPageCount + 2, 7).Text = sum3z
\'报表版面设置
doc.PageSetting.Landscape = False  \'True为横向打印,False为竖向
Doc.PageSetting.LeftMargin = 15 \'设置左边距
Doc.PageSetting.RightMargin = 15 \'设置右边距
Doc.PageSetting.TopMargin = 10 \'设置上边距
Doc.PageSetting.BottomMargin = 0 \'设置下边距
doc.PageSetting.PaperKind = 9 \'纸张类型改为A4
Dim x As Integer = 0 \'定义水平偏移参数
Dim y As Integer = 0 \'定义垂直偏移参数
\'如果需要分栏打印,请加上下面两行
\'doc.Columns.Add()
\'doc.Columns.Add()