要自己用代码实现合并
Dim tb As Table = Tables("表A")
tb.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
Dim rng As C1.Win.C1FlexGrid.CellRange = tb.Grid.GetCellRange(1, 1, 2, 2)
tb.Grid.MergedRanges.Add(rng) |
直接打印，如果不能合并，那也得自己修改 doc 对象去实现
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
If c.Gettype.name Like "*table*" Then
c.Style.GridLines.All = Nothing '将网格线类型设为默认类型
End If
Next
doc.Preview()
加好友 
发短信
Post By：2015/5/14 22:52:00 [显示全部帖子]
