- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口循环打印问题寻求帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7135)
-- 发布时间：2010/5/19 0:34:00
-- 窗口循环打印问题寻求帮助
要想打印出来的窗口标签是按照件数来决定打印次数
即件数是多少，打印窗口就打印几次
并Label1 是从起始箱号累加 1 的
代码该怎么写啊？
刚开始学，什么都不懂，谢谢大家
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.rar |
-- 发布时间：2010/5/19 1:11:00
-- 求助
用专业报表。
-- 发布时间：2010/5/19 7:52:00
--
做一个按钮，大概就是：
for i as integer = 1 to 件数
labe1的内容 = i
窗口打印代码
next
-- 发布时间：2010/5/19 12:36:00
--
惭愧的是 我都不会写哎
帮帮忙吧
-- 发布时间：2010/5/19 12:47:00
--
Dim Count As Integer = Tables("表A").Current("件数")
For i As Integer =1 To Count
e.Form.Controls("Label1").Text = Tables("表A").Current("起始箱号") + Count - 1
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Print
Next