主题：关于自动打印

想把产生的图片在窗口中显示后自动打印，

文件触发器的FileCreated事件中，代码如下：

If Forms("输出").Opened Then
   forms("输出").Controls("PictureViewer1").Readvalue
End If
Dim doc As PrintDoc = forms("输出").GernateprintDoc()
doc.print()

可是报错，不知什么原因。还有别的好方法吗？

不行，打印的图片是上一次的图片，而且出提示如下：

此主题相关图片如下：1.jpg

找到提示原因了，BeforeClose事件中的代码是：

Ports("COM4").Close(),可是我当前电脑里没有COM4。

现在的问题是：窗口中的图片并没有打印出来。（窗口中没有显示出来图片的时候可能就打印了）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

可以刷新

不行，给我的感觉是先执行打印，后图片刷新。打印的时候图片还没刷新，所以图片并没有自动打印出来。

可是窗口打印语句在刷新之后执行啊？不知是什么原因

而且窗口打印了执行了两次（都是在图片刷新前打印的）

上述代码执行后，每当打开窗口时首先就执行一下打印命令，不知是什么原因。

多谢贺老师不吝赐教。由于本人水平有限，提问不周之处还望海涵！