主题：窗口单据

参考

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderTable Then
        For i As Integer = 0 To c.Cols.Count - 1 '逐列设置和填入内容
            c.cols(i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
            c.cols(i).style.TextAlignVert = prt.AlignVertEnum.Center
        Next
    End If
Next
doc.Preview()

上传有表格数据的实例，我测试没问题。