VB中打印ACCESS报表

2007-12-06 　来源: 浏览次数 27

Dim acc As Object
Set acc = CreateObject("Access.Application")
If Right$(Trim$(App.Path), 1) = "\" Then
acc.OpenCurrentDatabase App.Path & "data.mdb"
'打开数据库
Else
acc.OpenCurrentDatabase App.Path & "\data.mdb"

End If
acc.docmd.OpenReport "打印准考证" ', acPreview
打印报表“打印准考证”
acc.Quit
Set acc = Nothing

使用ACCESS报表主要缺点就是不能预览