主题：[求助] 报表对齐

Dim doc As New PrintDoc '定义一个报表
'设置纸张
doc.PageSetting.PaperKind = 9 '纸张类型改为A4
doc.PageSetting.Landscape = False '纵向打印
'设置页边距
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 5 '设置上边距
Doc.PageSetting.BottomMargin = 5 '设置下边距
'设置页脚
Dim rt2 As New prt.RenderText '设置文本对象的内容
rt2.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
'rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
rt2.Style.TextAlignHorz = prt.AlignHorzEnum.Center'中心对齐
rt2.Style.Borders.Bottom = New prt.LineDef(0, Color.Green) '设置底边框
rt2.Style.Padding.Bottom = 0.2 '底端内容缩进0.5毫米
rt2.Style.FontSize = 10 '字体大小为8磅
'Doc.PageHeader = rt2 '作为页眉使用
Doc.PageFooter = rt2'作为脚使用

Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中

'设置列宽
rt.Style.FontSize = 10'字体大小

rt.Cols(0).Width = 25 '序号 mm
rt.Cols(3).Width = 25 '序号
rt.Cols(6).Width = 25 '序号

rt.Cols(1).Width = 25 '名称
rt.Cols(4).Width = 25 '名称
rt.Cols(7).Width = 25 '名称

rt.Cols(2).Width = 25 '金额
rt.Cols(5).Width = 25 '金额
rt.Cols(8).Width = 25 '金额

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.Style.TextAlignHorz = prt.AlignHorzEnum.Left'所有水平左对齐
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '所有垂直中心对齐
'例外  金额列水平右对齐
rt.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Right
rt.Cols(5).Style.TextAlignHorz = prt.AlignHorzEnum.Right
rt.Cols(8).Style.TextAlignHorz = prt.AlignHorzEnum.Right
'例外 前3行水平中心对齐
'rt.cells(2, 2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
'rt.cells(2, 5).Style.TextAlignHorz = prt.AlignHorzEnum.Center
'rt.cells(2, 8).Style.TextAlignHorz = prt.AlignHorzEnum.Center

'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.Rows(0).Style.GridLines.Bottom = New prt.LineDef("0.1mm", Color.black) '设置底边框

'合并行设置及赋值
rt.cells(1, 0).SpanCols = 3 '合并第一行前3个单元格
rt.cells(1, 0).Text = "收入" '设置第一行第一个单元格的内容
rt.Cells(1, 3).SpanCols = 6 '合并第一行最后6个单元格
rt.Cells(1, 3).Text = "支出" '设置第一行第四个单元格的内容

rt.Cells(2, 0).Text = "序号1"
rt.Cells(2, 1).Text = "名称1"
rt.Cells(2, 2).Text = "金额1"

rt.Cells(2, 3).Text = "序号2"
rt.Cells(2, 4).Text = "名称2"
rt.Cells(2, 5).Text = "金额2"

rt.Cells(2, 6).Text = "序号3"
rt.Cells(2, 7).Text = "名称3"
rt.Cells(2, 8).Text = "金额3"

rt.RowGroups(0, 3).Header = prt.TableHeaderEnum.All '前3行作为表头（从0开始，共3行）
rt.RowGroups(0, 3).Style.TextAlignHorz = prt.AlignHorzEnum.Center'前3行水平对齐

Dim tb As Table = Tables("主窗口_Tab_收支报表")
Dim ColNames As New List(Of String)
For Each cl As Col In tb.Cols '排除隐藏列
    If cl.Visible Then
        ColNames.Add(cl.Name)
    End If
Next
For ri As Integer = 0 To tb.Rows.count - 1 '行循环赋值
    For ci As Integer = 0 To ColNames.Count - 1 '列循环赋值
        rt.Cells(ri + 3, ci).Text = tb.Rows(ri)(ColNames(ci))
    Next
Next
Doc.Preview() '预览报表

第三行 金额列为什么没有居中