- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于自动打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7407)
-- 发布时间：2010/6/19 10:50:00
-- 关于自动打印
想把产生的图片在窗口中显示后自动打印，
文件触发器的FileCreated事件中，代码如下：
If Forms("输出").Opened Then
forms("输出").Controls("PictureViewer1").Readvalue
End If
Dim doc As PrintDoc = forms("输出").GernateprintDoc()
doc.print()
可是报错，不知什么原因。还有别的好方法吗？
-- 发布时间：2010/6/19 10:53:00
--
If Forms("输出").Opened Then
forms("输出").Controls("PictureViewer1").Readvalue
Dim doc As PrintDoc = forms("输出").GernateprintDoc()
doc.print()
End If
-- 发布时间：2010/6/19 12:59:00
--
不行，打印的图片是上一次的图片，而且出提示如下：
此主题相关图片如下：1.jpg
-- 发布时间：2010/6/19 14:30:00
--
错误提示说是窗口的BeforeClose事件有问题，自己检查一下吧
-- 发布时间：2010/6/19 14:35:00
--
窗口BeforeClose事件中的代码贴出来看看？
-- 发布时间：2010/6/19 15:08:00
--
找到提示原因了，BeforeClose事件中的代码是：
Ports("COM4").Close(),可是我当前电脑里没有COM4。
现在的问题是：窗口中的图片并没有打印出来。（窗口中没有显示出来图片的时候可能就打印了）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2010/6/19 15:17:00
--
先不考虑打印，下面的代码：
If Forms("输出").Opened Then
forms("输出").Controls("PictureViewer1").Readvalue
End If
能保证窗口的图片能够刷新吗？
先解决一个问题，再考虑下一个问题
-- 发布时间：2010/6/19 15:50:00
--
可以刷新
-- 发布时间：2010/6/19 15:51:00
--
If Forms("输出").Opened Then
forms("输出").Controls("PictureViewer1").Readvalue
Application.Doevents
Dim doc As PrintDoc = forms("输出").GernateprintDoc()
doc.print()
End If
-- 发布时间：2010/6/20 9:24:00
--
不行，给我的感觉是先执行打印，后图片刷新。打印的时候图片还没刷新，所以图片并没有自动打印出来。
可是窗口打印语句在刷新之后执行啊？不知是什么原因