dim acc as object set acc = createobject("access.application") if right$(trim$(app.path), 1) = "/" then acc.opencurrentdatabase app.path & "data.mdb" '打開數(shù)據(jù)庫 else acc.opencurrentdatabase app.path & "/data.mdb"
end if acc.docmd.openreport "打印準(zhǔn)考證" ', acpreview 打印報(bào)表“打印準(zhǔn)考證” acc.quit set acc = nothing
