专家坐堂-选择多行后打印窗口问题求助Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选择多行后打印窗口问题求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88496)

--  作者：sky2015
--  发布时间：2016/8/3 20:47:00
--  选择多行后打印窗口问题求助

Dim i,j As Integer
Dim sd As WinForm.CheckBox = e.Form.Controls("CheckBox1") \'是否打印双份
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
If sd.Checked = True Then
i=2
Else
i=1
End If
\'打印已经选择的列
Dim jhr As new List(of Row)
jhr = Tables("表a").GetCheckedRows
If jhr.Count = "0" Then
MessageBox.Show("请选择需要打印的行!")
Else
For Each r As Row In Tables("表a").GetCheckedRows
For j=1 To i
doc.Print()
Next
Next
End If

纸质是按照打印的行数进去了，出现第一条有数据，后面的打印的是空白的。
想实现功能：用户通过表复选框选择多行记录后，点打印，在打印窗口界面有个是否打印双份，如果是双份每条记录打2张，一条记录打印完后自动打印下一跳记录

求帮！

--  作者：大红袍
--  发布时间：2016/8/3 22:11:00
--
Dim i,j As Integer
Dim sd As WinForm.CheckBox = e.Form.Controls("CheckBox1") \'是否打印双份
If sd.Checked = True Then
    i=2
Else
    i=1
End If
\'打印已经选择的列
Dim jhr As new List(of Row)
jhr = Tables("表a").GetCheckedRows
If jhr.Count = "0" Then
    MessageBox.Show("请选择需要打印的行!")
Else
    For Each r As Row In Tables("表a").GetCheckedRows
        Tables("表A").Position = r.Index
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        For j=1 To i
            doc.Print()
        Next
    Next
End If

--  作者：sky2015
--  发布时间：2016/8/4 9:22:00
--
搞定谢谢