请教关于在C#中调用access中的报表并打印的问题！

在ACCESS里面建立一个报表。设置好打印机页边距

把ACCESS放在VB工程文件目录下，作为相对路径文件，然后在VB工程引用Microsoft

ACCESS类

代码如下：

12345678910Dim MSAccess As Access.Application '//定义一个ACCESS程序Private Sub Command1_Click()Set MSAccess = New Access.Application '// 实例化程序MSAccess.OpenCurrentDatabase (<a

href="http://www.baidu.com/s?wd=App.Path&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1dBrAcdP10zmvcsnhm1PW-W0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EPHT1rjn1njbv"

target="_blank"

class="baidu-highlight">App.Path</a>&"\AA.mdb") '//打开ACCESSMSAccess.DoCmd.OpenReport "ACCESS内部报表", acViewNormal '//运行里面的报表 MSAccess.CloseCurrentDatabase '//关闭数据，便于下次打开清理缓层 Set MSAccess = Nothing '//释放内存End Sub

这样下去，点一下Command1就会d出个ACCESS窗口，点下打开就打印ACCESS报表了，如果不让他d出提示窗口，那就把ACCESS安全级别先设置成最低，下次一点按钮就直接闪一下打印了

在VB中运行Microsoft Access报表的好方法

在VB中如何使用直观、简便的报表一直是很多人关心的问题， Crystal Reports用起来又不太理想。现介绍一在VB中运行Microsoft Access报表的方法，用起来还不错。

利用Automation运行Microsoft Access报表

1. 使用Microsoft Access建立数据库(如：novelty.mdb)的相关报表(如：rptEmployess)。

2. 创建引用

在VB中使用“Project References"菜单创建一个对Microsoft Access 8.0 Object Library

的引用。

3. 程序清单

注释：References MS Access 8.0 Object Library (this

注释：code will work with any verson of Access that

注释：supports Automation)

Dim MSAccess As Access.Application

Private sub Command1_Click()

Set MSAccess=NEW Access.Application

MSAccess.OpenCurrentDatabase(App.Path &"\novelty.mdb")

MSAccess.DoCmd.OpenReport "rptEmployess",acViewNormal

MSAccess.CloseCurrentDatabase

Set MSAccess=Nothing

end Sub

注：acViewNormal告知Access打开该报表并立即打印。

这种方法有个缺点，就是运行环境中必须装有MS Access。

---