打开报表时自动将窗体最小化，关闭报表时恢复窗体示例,其实比较实用。

附   件:
示例下载

功能演示：

重要源码：

Private Sub cmdPreview_Click()
    gstrPrintFormName = Me.Name
    PrintReport acViewPreview
End Sub

Private Sub cmdPrint_Click()
    PrintReport acViewNormal
End Sub

Private Function PrintReport(View As AcView)
    On Error Resume Next
    DoCmd.Minimize
    DoCmd.OpenReport "rptBxmx", View
End Function


'用于新增、修改窗体中打开报表时自动将窗体最小化，以免挡住报表
Public Function ShowPrintForm()
    On Error Resume Next
'    DoCmd.SelectObject acForm, gstrPrintFormName
    DoCmd.SelectObject acForm, "FrmOpen"
    DoCmd.Restore
    gstrPrintFormName = ""
 
End Function