Dim doc As New PrintDoc  \'定义一个报表
doc.PageSetting.Landscape = True \'横向打印
Doc.PageSetting.LeftMargin = 5 \'设置左边距
Doc.PageSetting.RightMargin = 5 \'设置右边距
Doc.PageSetting.TopMargin = 10 \'设置上边距
Doc.PageSetting.BottomMargin = 5 \'设置下边距
Dim tb As Table = Tables("物料信息")
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef  \'设置网格线
rt.CellStyle.Spacing.All = 1 \'内容距离网格线1毫米
\'设置主标题
rt.Cells(0,0).text = "物料信息"
rt.Cells(0,0).SpanCols = 9 \'合并第一行全部单元格,用于显示主标题
rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'主标题居中
rt.Cells(0,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) \'设置主标题字体
rt.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线
\'设置副标题
rt.Cells(1,0).text = "DateTime: " & Format(Date.Now(),"F") & "  [" & User.Name & "]" \'通过左边空格数量来调整副标题位置
rt.Cells(1,0).SpanCols = 9 \'合并地二行全部单元格,用于显示副标题
rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.right \'副标题内容居中
rt.Rows(1).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第二行的网格线
rt.Rows(1).Style.Borders.Bottom = New prt.Linedef  \'恢复第二行底端的网格线
rt.Rows(1).Height = 8 \'设置第二行的高度,拉开和表格主体的距离.
\'设置列标题
rt.cells(2,0).text = "编号"
rt.cells(2,1).text = "物料类别及名称"
rt.cells(2,2).text = "规格及型号"
rt.cells(2,3).text = "单位"
rt.cells(2,4).text = "物料属性及来源"
rt.cells(2,5).text = "单价"
rt.cells(2,6).text = "单重"
rt.cells(2,7).text = "附注"
rt.cells(2,8).text = "库存情况"
rt.RowGroups(2,1).Style.BackColor = Color.LightGray
rt.RowGroups(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.RowGroups(2,1).Style.TextAlignVert = prt.AlignVertEnum.Center
rt.RowGroups(0,3).Header = prt.TableHeaderEnum.All  \'前三行作为表头
\'给表格增加行测试效果
For i As Integer =  1  To  tb.Cols.Count -1 \'增加100行
\'求助此处

第一列填入"物料信息"的\'编号\'

第二列填入\'物料信息"的\'物料名称\'及\'类别\'

,,,,,,,
Next
Doc.Preview() \'预览报表