主题：合并单元格

如果是窗口打印，就额外处理一下

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 If
Next

doc.Preview

上传具体项目

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78