打印本文 
关闭窗口 Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing
打印本文 关闭窗口 | 打印本文 关闭窗口 |
|
| 在VB中用代码打印ACCESS报表 | |
| 作者：佚名 文章来源：不详 点击数 更新时间：2008/4/18 14:55:34 文章录入：杜斌 责任编辑：杜斌 | |
|
|
|
|
Dim objACC As Object Set objACC = CreateObject("Access.Application") objACC.OpenCurrentDatabase "c:\db.mdb" objACC.DoCmd.OpenReport "表报一" objACC.Quit Set objACC = Nothing |
|
| 打印本文 关闭窗口 |