| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 关于添加表格总行数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102257) |
| -- 作者：hnguang -- 发布时间：2017/6/16 10:57:00 -- 关于添加表格总行数 我参照帮助里的内容，制定一个报表，增加一个网格 有设定总行数为12行，在命令中测试还是只有4行 rt.Rows.Count = 12 \'设置总行数
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() |
| -- 作者：有点色 -- 发布时间：2017/6/16 11:35:00 -- rt.Rows.count = 12 rt.height = 100 |