老师好！以下代码可以实现窗口打印预览，想实现：列内容相同的单元格合并，代码如何修改？
'=====打印指定容器中内容=====
vars("本司提货委托打印")= True
e.Form.Page.PaperKind = 9 '纸张类型改为A4
e.Form.Page.Landscape = True '横向打印
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距
Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
doc.Preview()
vars("本司提货委托打印") = False
加好友 
发短信
Post By：2020/9/6 13:41:00 [只看该作者]
