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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 选择多行后打印窗口问题求助

共有1935人关注过本帖树形打印复制链接主题：选择多行后打印窗口问题求助

sky2015

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：168 积分：1396 威望：0 精华：0 注册：2015/4/17 9:52:00

选择多行后打印窗口问题求助 发帖心情

Post By：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()

End If

纸质是按照打印的行数进去了，出现第一条有数据，后面的打印的是空白的。

想实现功能：用户通过表复选框选择多行记录后，点打印，在打印窗口界面有个是否打印双份，如果是双份每条记录打2张，一条记录打印完后自动打印下一跳记录

求帮！

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：168 积分：1396 威望：0 精华：0 注册：2015/4/17 9:52:00

Post By：2016/8/4 9:22:00 [只看该作者]

搞定谢谢

下一主题 >> << 上一主题

主题：选择多行后打印窗口问题求助