诸位先生你们好！
现大家请教一个问题，就是如何利用VB调用accesss数据库报表打印预览报表问题。本人现在利用如下编码实现了直接调用打印报表，但是却不能实现先预览后打印功能，请教大家。帮助解决……！！！ 谢谢，盼高人指教。
北京－杨。(shunlaiyang@126.com)
-------------------------------------------------------------
Private Sub 报表_Click()
Dim ac As Access.Application
Dim db As DAO.Database
Dim strDbName As String
strDbName = App.Path & "\数据库.mdb"
Set ac = New Access.Application
Set db = ac.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123"
ac.OpenCurrentDatabase strDbName
ac.DoCmd.OpenReport 报表1", acViewNormal
db.Close
Set db = Nothing
End Sub