VB调用ACCESS中的报表,不能预览只能直接打印,如何解决?

我需要打印预览功能,而不是直接打印,程序的调用access报表代码:
     Dim MSAccess As Access.Application
     Set MSAccess = New Access.Application
     MSAccess.OpenCurrentDatabase (App.Path & "\xxx.mdb")
     MSAccess.DoCmd.OpenReport "xxx报表", acViewNormal
     MSAccess.CloseCurrentDatabase
     Set MSAccess = Nothing