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

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