以文本方式查看主题

-  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=43488)
--  作者：xzc1221
--  发布时间：2013/12/9 1:27:00
--  求连续打印代码

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:土地.table

求附件中农户土地面积窗口中连续打印按钮的代码，要求能够打印表农户土地面积的所有户，每
户一页，且每户打印出的郊果都与打印预览的郊果一致。
--  作者：Bin
--  发布时间：2013/12/9 9:13:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:土地.table
--  作者：xzc1221
--  发布时间：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
--  作者：xzc1221
--  发布时间：2013/12/12 1:51:00
--  

非常感谢。