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()