当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB中打印ACCESS报表

ASP.NET
细细品味ASP.NET(一)
细细品味ASP.NET(二)
细细品味ASP.NET(三)
细细品味ASP.NET(四)
细细品味ASP.NET(五)
用asp.net和xml做的新闻更新系统(1)
用asp.net和xml做的新闻更新系统(2)
用asp.net和xml做的新闻更新系统(3)
十天学会ASP.net(1)
十天学会ASP.net(2)
十天学会ASP.net(3)
十天学会ASP.net(4)
十天学会ASP.net(5)
十天学会ASP.net(6)
十天学会ASP.net(7)
十天学会ASP.net(8)
十天学会ASP.net(9)
十天学会ASP.net(10)
ASP.NET创建XML Web服务全接触(1)
ASP.NET创建XML Web服务全接触(2)

ASP.NET 中的 VB中打印ACCESS报表


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 50 ::
收藏到网摘: n/a


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使用ACCESS报表主要缺点就是不能预览