主题：关于自动打印

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

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

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

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

 

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

可以用定时器，定时器间隔为1秒，初始状态禁止
 
FileCreated事件：
 
If Forms("输出").Opened Then
    forms("输出").Controls("PictureViewer1").Readvalue
    forms("输出").TimerEnabled = True
End If
 
定时器代码：
 
forms("输出").TimerEnabled = False
Dim doc As PrintDoc = forms("输出").GernateprintDoc()
doc.print()

我前面不是说了吗？ 设计窗口的时候，将定时器“启用”属性设为False

呵呵，没关系啊。

记得有空多看看帮助，以后成老鸟了，也要帮助帮助新鸟