- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求连续打印代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43488)
-- 发布时间：2013/12/9 1:27:00
-- 求连续打印代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:土地.table |
求附件中农户土地面积窗口中连续打印按钮的代码，要求能够打印表农户土地面积的所有户，每
户一页，且每户打印出的郊果都与打印预览的郊果一致。
-- 发布时间：2013/12/9 9:13:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:土地.table |
-- 发布时间：2013/12/11 21:51:00
--
Bin 方法不对。我的要求是点击该按钮打印第一户后，接着打印第二户，依此类推，直到打印所有户。
-- 发布时间：2013/12/11 21:58:00
--
把代码改一下就行了。连续打印的代码
Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
dtp.Value = Date.Today
For i As Integer= 0 To Tables("农户土地面积").Rows.count-1
Tables("农户土地面积").Position=i
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
Next
-- 发布时间：2013/12/12 1:51:00
--
非常感谢。