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报表主要缺点就是不能预览
[ 查看全文 ]