标题：窗口循环打印问题寻求帮助

1楼

erdbeer 发表于：2010/5/19 0:34:00

要想打印出来的窗口标签是按照件数来决定打印次数

即件数是多少，打印窗口就打印几次

并Label1 是从起始箱号累加 1 的

代码该怎么写啊？

刚开始学，什么都不懂，谢谢大家

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

2楼

八婺发表于：2010/5/19 1:11:00

用专业报表。

3楼

狐狸爸爸 发表于：2010/5/19 7:52:00

做一个按钮，大概就是：

for i as integer = 1 to 件数

labe1的内容 = i

窗口打印代码

4楼

erdbeer 发表于：2010/5/19 12:36:00

惭愧的是我都不会写哎

帮帮忙吧

5楼

狐狸爸爸 发表于：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

共5 条记录, 每页显示 10 条, 页签: [1]