用VB怎么触发打印acess报表????

用VB怎么触发打印acess报表????
我用的是OFFICE2003..
报表格式都排好了..
望高人指教..

解决方案 »

  1.   

    2000的可以如下试试，2003的不知行不行：
    首先在“工程/引用”菜单下引用Microsoft Access 9.0 Object Library  
        Dim MSAccess As Access.Application
        Set MSAccess = New Access.Application
        MSAccess.OpenCurrentDatabase (App.Path & "\db1.mdb")
        MSAccess.DoCmd.OpenReport "rptTB", acViewNormal
        MSAccess.CloseCurrentDatabase
        Set MSAccess = Nothing
      

  2.   

    我试了..怎么到这句就出错了啊..
    objacess.OpenCurrentDatabase ("D:\backup\gongzi\db1.mdb")
    错误信息是OBJIECT变量或者WITH变量没定义...
    是什么原因啊?
      

  3.   

    vbman2003(家人)：
    MSAccess.DoCmd.OpenReport "rptTB", acViewNormal
    用你的方法试了一下，可以打印。我希望预览，于是改成下面这样，但是无法对报表进行预览。
    MSAccess.DoCmd.OpenReport "rptTest", acViewPreview
    请问怎么回事？