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报表主要缺点就是不能预览