[access报表]移除报表预览窗口的Min/Max/Close按钮

来源:The access Web 点击数:8320 　 | 收藏 | 复制

时　间:2004-11-10 00:00:00
作　者:Terry Kreft & Keri Hardwick ID：61 城市：岳阳
摘　要:从报表的预览窗口上移除最小化、最大化以及复原按钮，创建一个自定义的工具条让用户来关闭报表以及使用某些API函数来移除预览窗口上的标题栏。使用这种方法，一旦最大化报表，预览窗口将占据整个ACCESS的屏幕窗口而不出现允许复原按钮恢复原来窗口的大小以及不出现其它按钮。

正　文:

　　从报表的预览窗口上移除最小化、最大化以及复原按钮，创建一个自定义的工具条让用户来关闭报表以及使用某些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软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】