使用VB直接列印Access的報表(編號：8565)

我使用Vb直接呼叫Access的Report，但是使用下面的方法，在執行時，預覽畫面閃一下就消失了 。
請問
1　這是那理有誤呢？
2　若要在開啟預覽畫面後，按下確定後才開始列印，應如何設定。
寫法如下：
Dim ac As Access.Application
Set ac = New Access.Application
　　　ac.OpenCurrentDatabase ("C:\My Documents\My Webs\mis.mdb")
　　　ac.DoCmd.OpenReport "電腦狀況處理表", acViewPreview
　　　ac.Visible = True
　　　ac.CloseCurrentDatabase

謝謝。