选择组合框中的合格证模板，然后打印：
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
Next
加好友 
发短信
Post By：2017/7/26 8:37:00 [显示全部帖子]
