Dim e = args(0)
Dim 参数类型 As String = args(1)
Dim 参数名称 As String = args(2)
Dim 配置参数 As String = args(3)
If Tables("参数配置表").Current IsNot Nothing Then
Dim r As Row = Tables("参数配置表").Current
If r("参数类型") = "是否启用打印" And r("配置参数") = "是" Then
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderTable Then
Dim t As prt.RenderTable = c
t.Rows(0).Style.Font = new font("宋体", 10, fontstyle.bold) '第一行,即标题行加粗
't.Rows(t.Rows.count-1).Style.Font = new font("宋体", 10, fontstyle.bold) '最后一行,即标题加粗,这里是打印表格明细,不需要
For i As Integer = 0 To t.Rows.count-1
For j As Integer = 0 To t.Cols.count-1
t.cells(i,j).Style.BackColor = Color.white
t.cells(i,j).Style.TextColor = Color.black
Next
Next
End If
Next
doc.Preview()
'doc.Print()
Else
Return Nothing
End If
End If
加好友 
发短信
Post By：2020/7/13 11:45:00 [只看该作者]
此主题相关图片如下：123.jpg