下面的代码是窗口打印,有一个问题:因为有合并单元格,打印出来的表,排序乱了,有什么办法保持原有的默认排序吗?With Tables("生产单_table1")
Syscmd.Table.ToggleSortAndFilter()
.MergeMode = MergeModeEnum.free '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("品名小类") '加入要合并的列
.MergeCols.Add("颜色")
.MergeSort = "品名小类,颜色" '设置合并模式下的排序方式
.AllowMerge = True '启用合并模式
For Each c As Col In .cols
If .FindRow(c.name & " is not null") < 0 Then
c.visible = False
End If
Next
End With
'--------------------------------------
Tables("生产单_table1").AutoSizeRows
e.Form.Controls("Table1").MaxRows = e.Form.Controls("最大行数").value
Dim doc As PrintDoc = e.Form.gernateprintdoc() '定义一个报表
doc.PageSetting.Landscape = True '横向打印
doc.Preview() '预览