VB中打印ACCESS报表_.NET教程_编程技术

2013-12-20 14:32:32 [小大] 已经帮助：人解决问题

access|打印

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