打印代码
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
If c.Gettype.Name Like "*Table*" Then
Dim t As prt.RenderTable = c
t.Rows(0).Height = 30
t.Rows(0).Style.BackColor = Color.Red
t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
For i As Integer = 0 To t.Cols.Count - 1
t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
End If
Next
doc.Preview