从报表的预览窗口上移除最小化、最大化以及复原按钮，创建一个自定义的工具条让用户来关闭报表以及使用某些API函数来移除预览窗口上的标题栏。使用这种方法，一旦最大化报表，预览窗口将占据整个ACCESS的屏幕窗口而不出现允许复原按钮恢复原来窗口的大小以及不出现其它按钮。

 

涉及的使用步骤如下:

1. 在每个报表的Deactivate事件处理程序中写入: 

DoCmd.Close acReport, Me.Name

2. 在一个总是打开的主菜单中放置一个唯一的退出数据库的按钮，并在引用报表的窗口(frmStart)中定义:

Dim CanClose as Integer

在窗体的Open事件处理程序中写入: 

CanClose = 0

在窗体的Unload事件处理程序中写入: 

If Not CanClose Then     Cancel = True     Forms!frmStart.Visible = True     'form is hidden when report is previewed     DoCmd.SelectObject acForm, "frmStart"     CloseForms     CloseReports     ' CloseForms and CloseReports close any open objects     ' other than frmStart End If

3. 使用每个窗体的Open事件处理程序写入DoCmd.Maximize。
4. 为打印建立一个定置的工具条，放置关闭以及其它的功能按钮。设置报表的菜单为"-1"，在工具条上做两个限制用户使用的操作。
5. 使用下面的代码预览报表:

DoCmd.OpenReport "TheReport", acViewPreview,... Call sRemoveCaption(Reports("TheReport")

这样的话，用户就能:

  1. 看到报表 
  2. 在工具条操作
  3. 最小化ACCESS

　　好了，如果用户想关闭ACCESS，可以主菜单来做到，但在报表预览窗口没有最小化、最大化以及关闭按钮。

'********************* Code Start ************************ 'This code was originally written by Terry Kreft & Keri Hardwick. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' 'Code Courtesy of 'Terry Kreft & Keri Hardwick ' Private Type RECT  '  16  Bytes     left As Long     top As Long     right As Long      [access报表]移除报表预览窗口的Min/Max/Close按钮 [Access软件网] http://www.accessoft.com/blog/article-show.asp?userid=61&Id=198 Access软件网交流QQ群(群号：198465573)