主题：专业报表表格内容靠右

以下专业报表代码中，我想让借方金额、贷方金额及余额的标题居中内容靠右，以下代码怎么完善

Dim Doc As new PrintDoc()

Dim rt As new prt.rendertable

Dim rx As new prt.RenderText

rx.style.Font = new font("宋体",16)

rx.style.TextAlignHorz = prt.AlignHorzEnum.Center

rx.Style.Spacing.Bottom = 3

rx.text = "银行交易明细"

Doc.body.Children.Add(rx)

rt.rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '唯独第一列内容居中

rt.style.Font = new font("宋体",9)

rt.style.GridLines.all = new prt.LineDef

rt.Cols(1).Width = 32

rt.Cols(2).Width = 32

rt.Cols(8).Width = 32

rt.cells(0,0).text="交易日期"

rt.cells(0,1).text="银行账号"

rt.cells(0,2).text="银行卡号"

rt.cells(0,3).text="交易户名"

rt.cells(0,4).text="交易内容"

rt.cells(0,5).text="借方金额"

rt.cells(0,6).text="借方金额"

rt.cells(0,7).text="余额"

rt.cells(0,8).text="对方账号"

rt.cells(0,9).text="对方户名"

rt.cells(0,10).text="地点号"

rt.cells(0,11).text="交易机构"

Dim drs As List (of DataRow) = Tables("交易明细_table1").DataTable.sqlselect("交易日期 is not null")

For i As Integer = 0 To drs.Count-1

    rt.cells(i+1,0).text= drs(i)("交易日期")

    rt.cells(i+1,1).text= drs(i)("银行账号")

    rt.cells(i+1,2).text= drs(i)("银行卡号")

    rt.cells(i+1,3).text= drs(i)("交易户名")

    rt.cells(i+1,4).text= drs(i)("交易内容")

    rt.cells(i+1,5).text= drs(i)("借方金额")

    rt.cells(i+1,6).text= drs(i)("贷方金额")

    rt.cells(i+1,7).text= drs(i)("余额")

    rt.cells(i+1,8).text= drs(i)("对方账号")

    rt.cells(i+1,9).text= drs(i)("对方户名")

    rt.cells(i+1,10).text= drs(i)("地点号")

    rt.cells(i+1,11).text= drs(i)("交易机构")

Next

Doc.body.Children.Add(rt)

Doc.PageSetting.LeftMargin = 10 '设置左边距

Doc.PageSetting.RightMargin = 10 '设置右边距

Doc.PageSetting.TopMargin = 10 '设置上边距

Doc.PageSetting.BottomMargin = 10 '设置下边距

doc.PageSetting.Landscape = True

Doc.preview()