VB中打印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報表主要缺點就是不能預覽

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: Access ACCESS 打印