主题：关于自动打印

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

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

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

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