如果是窗口打印,就额外处理一下
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 For i As Integer = 0 To t.Rows.Count - 1 If t.Cells(i, 1).Text = Nothing Then t.Cells(i, 0).SpanCols = 4 End If Next End IfNext
doc.Preview