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

选择组合框中的合格证模板，然后打印：

1、打印【打印】表中合格证模板列=组合框中选定的模板的行并且[打印]= False，打印后再[打印]= True。

2、打印到Attachments文件夹中的模版文件[合格证模板.xls]中与组合框中同名的表中。

下面类似的代码是用多个按钮实现的，并且用了多个文件。我想用上面的方案，试了没成功，请老师帮助写出打印按钮的代码。

Tables("打印").Filter = "[合格证模板] = '3C盘装' 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 & "Attachments\3C盘装.xls")

Book.Build()

Book.Save(ProjectPath & "Reports\3C盘装.xls")

Dim Proc As New Process

Proc.File = ProjectPath & "Reports\3C盘装.xls"

Proc.Start()

For Each r As Row In Tables("打印").Rows

r("打印") = True

下载信息 [文件大小：下载次数： ]
点击浏览该文件:打印合格证.zip

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

问题：打印到了合格证模板.xls文件中所有的表，并不是组合框指定的表

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

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

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

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

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

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

主题：合格证打印