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
