- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教窗口打印事件代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73819)
-- 发布时间：2015/8/27 13:47:00
-- 求教窗口打印事件代码
问题如附件图示，表A中创建明细，新建窗口后，将表A数据加载到窗口，增加打印按钮，点击打印按钮自动根据设定标签格式进行打印输出，份数来源于表A的打印数量列，请高手指点！！
此主题相关图片如下：问题1.png
-- 发布时间：2015/8/27 14:17:00
--
方法一：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For i As Integer = 1 To val(Tables("表A").Current("第二列"))
doc.Preview()
Next
方法二：
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = 2
doc.Print(ps)
设置纸张大小参考 http://www.foxtable.com/help/topics/1602.htm