以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]窗口打印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154166)

--  作者：ntqhj --  发布时间：2020/9/6 13:41:00 --  [求助]窗口打印 老师好！以下代码可以实现窗口打印预览，想实现：列内容相同的单元格合并，代码如何修改？ \'=====打印指定容器中内容===== 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

--  作者：有点蓝 --  发布时间：2020/9/6 20:25:00 --   打印前合并即可，参考：http://www.foxtable.com/webhelp/topics/1373.htm

--  作者：ntqhj --  发布时间：2020/9/29 8:49:00 --   老师好！窗口打印表，列名不打印该如何设置？

--  作者：有点蓝 --  发布时间：2020/9/29 8:54:00 --   打印前把标题高度设置为0：http://www.foxtable.com/webhelp/topics/1548.htm

--  作者：ntqhj --  发布时间：2020/10/1 14:28:00 --  [求助] [此贴子已经被作者于2020/10/2 0:37:54编辑过]

--  作者：ntqhj --  发布时间：2020/10/7 16:09:00 --  [求助]判断 窗口，有“筛选”按钮及“打印”按钮，想实现：在没有点“筛选”按钮时，点“打印”按钮，不执行“打印”按钮所有代码，弹出提示信息。“打印”按钮代码该如何修改？ [此贴子已经被作者于2020/10/7 16:10:25编辑过]

--  作者：有点蓝 --  发布时间：2020/10/7 16:23:00 --   利用全局变量 “筛选”按钮 vars("筛选")=true \'原筛选代码 “打印”按钮 if vars("筛选")=false then msgbox("先筛选") return end if \'原打印代码

--  作者：ntqhj --  发布时间：2020/11/15 21:17:00 --   老师好！窗口打印，绑定表是副本表，只有2列，举例说：筛选后共有5行数据需要打印，3行内容相同+2行内容相同，该2列通过自由合并后，只显示2行数据，但是实际打印时占用5行的行高（3行+2行），如何实现打印时，只按2行文字数据的行高显示打印

--  作者：有点蓝 --  发布时间：2020/11/15 21:53:00 --   把重复的行隐藏 Dim r,r2 As Row For i As Integer = Tables("表A").rows.count - 1 To 1 Step -1     r = Tables("表A").rows(i)     r2 = Tables("表A").rows(i-1)     If r("第一列") = r2("第一列") AndAlso r("第二列") = r2("第二列") Then         Tables("表A").grid.rows(i+1).visible = False     End If Next

--  作者：ntqhj --  发布时间：2021/1/1 16:42:00 --   老师好！窗口SplitContainer分区面板，panel2加了个lable标识，位置“上”设置成了负数，看不到了，如何才能使其显示出来？