合格证打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合格证打印

共有2182人关注过本帖树形打印复制链接主题：合格证打印

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 8:55:00 [显示全部帖子]

Dim cbx As WinForm.ComboBox = e.Form.Controls("合格证模板")
Tables("打印").Filter = "[合格证模板] = '" & cbx.text & "' And [打印] = False "
If Tables("打印").Rows.Count = 0 Then '如果是一个空表
    MessageBox.Show("没有要打印的数据!", "提示")
    Return '那么返回
Else
    '选定筛选的表
    With Tables("打印")
        .Select(0,0, .Rows.Count -1, .Cols.Count -1)
    End With
End If
Dim Book As New XLS.Book(ProjectPath & "images/Attachments\合格证模板.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\" & cbx.text & ".xls")
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\" & cbx.text & ".xls"
Proc.Start()
For Each r As Row In Tables("打印").Rows
    r("打印") = True
Next

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/26 9:43:00 [显示全部帖子]

以下是引用实话实说在2017/7/26 9:10:00的发言：
问题：打印到了合格证模板.xls文件中所有的表，并不是组合框指定的表

Attachments\合格证模板.xls"各表模板是不同的

[此贴子已经被作者于2017/7/26 9:18:01编辑过]

不要把多个表放在一个xls里面，请做多个xls文件，一个xls对应一个模板。这样利于管理和编写代码。

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

主题：合格证打印