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
