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