Dim Doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin= 8 '设置上边距
Doc.PageSetting.BottomMargin = 10 '设置底边距
Doc.PageSetting.Width=210 '宽度
Doc.PageSetting.Height=279 '高度
Doc.PageSetting.Landscape = False '横向打印
Doc.PageSetting.Color = False '彩色打印
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.x = 9
rt.Rows.Count = 12 '设置总行数
rt.Cols.Count = 12 '设置总列数
'设置主标题
rt.Cells(0,0).text = "东莞理捷运动器材有限公司"
rt.Cells(0,0).SpanCols = 12 '合并第一行全部单元格,用于显示主标题
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 = "原始凭单" '通过左边空格数量来调整副标题位置
rt.Cells(1,0).Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置主标题字体
rt.Cells(1,0).SpanCols = 12 '合并地二行全部单元格,用于显示副标题
rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '副标题内容居中
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 = 15 '设置第二行的高度,拉开和表格主体的距离.
'设置列标题
rt.cells(2,0).SpanCols = 2 '合并第一行前三个单元格
rt.Cells(2,2).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(2,4).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(2,6).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(2,8).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(2,10).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.cells(3,0).SpanCols = 2 '合并第一行前三个单元格
rt.Cells(3,2).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(3,4).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(3,6).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(3,8).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(3,10).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.cells(2,0).Text = "第一季度" '设置第一行第一个单元格的内容
rt.Cells(2,3).Text = "第二季度" '设置第一行第四个单元格的内容
rt.Cells(3,0).Text= "华东"
rt.Cells(3,1).Text = "华南"
rt.Cells(3,2).Text = "华北"
rt.Cells(3,3).Text= "华东"
rt.Cells(3,4).Text = "华南"
rt.Cells(3,5).Text = "华北"
'For i1 As Integer = 2 To 100 '增加100行
'rt.Cells(i1 + 2, 0).Text =i1
'Next
rt.cells(4,0).SpanCols = 2 '合并第一行前三个单元格
rt.Cells(4,2).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(4,4).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(4,6).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(4,8).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(4,10).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.cells(5,0).SpanCols = 2 '合并第一行前三个单元格
rt.Cells(5,2).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(5,4).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(5,6).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(5,8).SpanCols = 2 '第1行第5个单元格向下合并6行
rt.Cells(5,10).SpanCols = 2 '第1行第5个单元格向下合并6行
'
rt.RowGroups(2,2).Style.BackColor = Color.LightGray '第三第四行的颜色设为灰色
rt.RowGroups(2,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第三第四行的文本水平居中
rt.RowGroups(2,2).Style.TextAlignVert = prt.AlignVertEnum.Center '第三第四行的文本垂直居中
rt.RowGroups(0,10).Header = prt.TableHeaderEnum.All '前四行作为表头
Doc.Preview()
加好友 
发短信
Post By：2017/6/16 10:57:00 [只看该作者]
