objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC =">

在VB中用代码打印ACCESS报表

80酷酷网    80kuku.com

　　Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing













分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间

上一篇如何定义自动编号字段的初始值和步进值？

下一篇如何设置ACCESS2003（运行时）的宏安全性级别

相关文章

点击：