主题：打印凭证时的表头如何居中

此主题相关图片如下：qq截图20181116175609.png

请问老师：打印凭证时，上述表头如何居中？

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderTable Then
        c.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
        c.Rows(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
    End If
Next
doc.Preview()

 

老师，我试来，不行的，是否可以帮我改下？

 

 

不可能不行。具体实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

你要怎么居中，你直接移动控件的位置不就好了么？

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

摘要、金额、备注居中

Dim doc As PrintDoc = e.Form.GernatePrintDoc(e.Form.controls("panel1"))
'Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderTable Then
        c.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        c.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        c.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
   End If
Next
doc.Preview()

老师上述代码只能表格内容居中，但表头不能居中