呃,测试了一下,暂时做不到。
1、doc不能多线程运行,也就是它在生成的工程中,是一定不能再做其它的操作的;不过发电邮,可以做异步发送。
2、如果确实很慢,你可以换一种思路,弄成短信猫的思路,单独用一台机器处理生成数据和发送电邮的功能。
3、如果要不显示,最多是这样变通一下,如
计划任务
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = "Class242" AndAlso frm.Text = "生成进度" Then
frm.Hide
application.Doevents
MyTimers("计划1").Enabled = False
End If
End If
按钮代码
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
MyTimers("计划1").Interval = 1
MyTimers("计划1").Enabled = True
doc.SavePDF("C:\Test.PDF")
MyTimers("计划1").Enabled = False