Foxtable(狐表)用户栏目专家坐堂 → [求助]保存報表時如何不彈出[正在保存...]的窗口?


  共有2435人关注过本帖树形打印复制链接

主题:[求助]保存報表時如何不彈出[正在保存...]的窗口?

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/25 17:12:00 [显示全部帖子]

呃,测试了一下,暂时做不到。

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/25 21:38:00 [显示全部帖子]

 肯定是不可以的。

 回到顶部