求助：VB打印ACCESS报表多份，无法释放内存！

roych

GDLJLYF 发表于 2015-1-27 15:55
就是打印多少份就访问ACCESS多少次，但是打印完后，ACCESS后台没有关闭，没法释放，如果打了几十份，机子 ...

1. Dim X%
   
2.      X = AA
   
3.     For X = 1 To AA
   
4. 
   
5.        Dim objacc As Object
   
6.         Set objacc = CreateObject("access.application")
   
7.         objacc.OpenCurrentDatabase "" + App.Path + "\data\快递管理.mdb"           '要打印报表的数据库数径
   
8.         objacc.DoCmd.OpenReport Comboxkdm '打印与Combo对应的报表名称
   
9. objacc.Quit
   
10. Set objacc = Nothing
    
11.                  Next

复制代码

放在循环体内才可以及时删除组件的。