用VB调用一个ACCESS报表

Question

我要用VB调用一个ACCESS报表，但是调用出来时只没有预览，而是直接打印的，应怎么办呢?

Answer 1

Dim accapp As Access.Application
Set accapp = New Access.Application
Dim tt As String
tt = "报表名称"
accapp.OpenCurrentDatabase "c:\数据库名.mdb"
accapp.DoCmd.OpenReport tt, acViewPreview
accapp.Visible = True

Answer 2

同意 LNSPRITE(雪碧) ( ) 信誉：100

Answer 3

accapp.DoCmd.OpenReport tt, acViewPreview
这一句改为
accapp.DoCmd.OpenReport tt, acViewNormal 就是直接打印 如果直接打印
接着的accapp.Visible = True 可以不要

Answer 4

请问是不是要imports 什么呢？
Dim accapp As Access.Application
Set accapp = New Access.Application
这两句不可用呀？

Answer 5

楼上的朋友，你英看看下面的东东
强调一下，在编写程序之前须加入对Access库函数的引用，具体操作是：选择菜单栏'工程'\'引用…'，将'可使用的引用'列表框内'Microsoft Access 8.0 Object Library'
项前的复选框标为选中，按"确定"返回

Answer 6

最好这样写
 Set accapp=CreateObject("access.Application")