为何在access文件菜单中选打印而打印不出报表来？

付谦

在窗体中设计了打印报表功能，打印预览报表显示很好，在access菜单中选文件下的打印而打印不出报表来，可按鼠标右键在显示的菜单中选打印，又能打印出来，百思不得其解，请高手指点
Private Sub Cmd报名表_Click()
On Error GoTo Err_Cmd报名表_Click
    Dim stDocName, strWhere As String
      If Forms!报考窗体.Combo32 = "会计" Then
       DoCmd.OpenReport "报考-会计考试报名表", acViewPreview, , Me.报考子窗体.Form.Filter
      ElseIf Forms!报考窗体.Combo32 = "研究生" Then
       DoCmd.OpenReport "培训-考研申报表", acViewPreview, , Me.报考子窗体.Form.Filter
     Else
        DoCmd.OpenReport "报考-通用报名表", acViewPreview, , Me.报考子窗体.Form.Filter
         
      End If
      
Exit_Cmd报名表_Click:
    Exit Sub
Err_Cmd报名表_Click:
    MsgBox err.Description
    Resume Exit_Cmd报名表_Click
End Sub

[ 本帖最后由 付谦 于 2008-2-29 17:01 编辑 ]

jynj

问题在这里DoCmd.OpenReport "报考-通用报名表", acViewPreview, , Me.报考子窗体.Form.Filter
中的acViewPreview表示预览
应改为acNormal或者acViewNormal，你试试

[ 本帖最后由 jynj 于 2008-2-29 19:48 编辑 ]