【Access示例】打开报表时自动将窗体最小化，关闭报表时恢复窗体

时　间:2016-04-16 08:46:32
作　者:杨雪   ID：42182  城市：南京
摘　要:此示例里面还包括新增，修改，删除，查询等功能，有兴趣的菜鸟们可以多多学习。
只是报表格式做的比较简单，重要的的是演示：打开报表时自动将窗体最小化，关闭报表时恢复窗体 这个功能。
正　文:

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

附   件:
示例下载

功能演示：

重要源码：

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