計(jì)算機(jī)二級(jí)VisualBasic輔導(dǎo)：vb代碼打印access報(bào)表

dim objacc as object
    set objacc = createobject("access.application")
    objacc.opencurrentdatabase "c:\db.mdb"
    objacc.docmd.openreport "表報(bào)一"
    objacc.quit
    set objacc = nothing