标题：关于自动打印

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

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

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

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

If Forms("输出").Opened Then
    forms("输出").Controls("PictureViewer1").Readvalue

    Dim doc As PrintDoc = forms("输出").GernateprintDoc()
    doc.print()
End If

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

错误提示说是窗口的BeforeClose事件有问题，自己检查一下吧

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

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

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

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

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

先不考虑打印，下面的代码：

If Forms("输出").Opened Then
   forms("输出").Controls("PictureViewer1").Readvalue
End If

能保证窗口的图片能够刷新吗？

先解决一个问题，再考虑下一个问题

可以刷新

If Forms("输出").Opened Then
    forms("输出").Controls("PictureViewer1").Readvalue

    Application.Doevents

    Dim doc As PrintDoc = forms("输出").GernateprintDoc()
    doc.print()
End If

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

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