VB中打印ACCESS报表

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