rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '利用行组,将第一行设为表头
doc.Body.Children.Add(rt) '将表格加入到报表
'如果需要分栏打印,请加上下面两行
doc.Columns.Add()
doc.Columns.Add()
doc.PageSetting.LeftMargin = 10 '设置左边距
doc.PageSetting.RightMargin = 0 '设置右边距
doc.PageSetting.TopMargin = 10 '设置上边距
doc.PageSetting.BottomMargin = 0 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
doc.Preview()
预览后，两个分栏的内容重叠在一起，怎么破~
加好友 
发短信
Post By：2017/5/14 9:02:00 [只看该作者]
