Office中国论坛/Access中国论坛

标题: 隐藏Access主窗口后，报表怎样显示？打印按钮、页面设置怎样加到窗体上？ [打印本页]

作者: 佳佳 时间: 2003-12-8 22:02
标题: 隐藏Access主窗口后，报表怎样显示？打印按钮、页面设置怎样加到窗体上？
如题

作者: duzili 时间: 2003-12-9 08:29
标题: 隐藏Access主窗口后显示报表的方案
解决办法：
1、思路：在打印预览报表的时候把access主窗体显示出来，预览完以后再隐藏起来。
2、缺陷：画面切换让人有些眼花。
3、程序：

'============================================
'api声明
'将以下代码放一个模块里
'===========================================
  Public Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Function 隐藏access窗口()
   ShowWindow Access.Application.hWndAccessApp, 0
End Function
Public Function 显示()
   ShowWindow Access.Application.hWndAccessApp, 0
   Form_窗体1.Visible = True
End Function
Public Function 隐藏窗体()
   ShowWindow Access.Application.hWndAccessApp, 5
   Form_窗体1.Visible = False
End Function

'============================
用法：
'=============================
'在报表的 Report_Open事件中隐藏窗体
call 隐藏窗体
'在报表的Report_Close事件中下显示窗体
call 显示
'=======================================
代码结束
'========================================

4、关键：
要显示的窗体的“弹出方式”为“是”，在access2000下还要将“独占方式”设置为“是”
5、例子如下：

[attach]2746[/attach][hide][/hide]

[此贴子已经被作者于2003-12-9 0:30:43编辑过]

作者: 佳佳 时间: 2003-12-9 20:41
感谢

作者: cnamos 时间: 2009-6-16 21:06
这个你测试过了吗?我为何测试不通过?我现在遇到的问题就是打开我的窗口时用
-----------------------------
Option Compare Database
Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Const WM_SYSCOMMAND As Long = &H112
Const SC_MOVE_MOUSE As Long = &HF012&
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
ShowWindow Me.Application.hWndAccessApp, 0

End Sub
可以把主窗口隐藏,但是就是报表打不开.

作者: muning2010 时间: 2010-2-23 12:25
就差最后一步了，如何隐藏主窗口啊

作者: yanwei82123300 时间: 2012-8-12 10:51
谢谢分享

作者: koutx 时间: 2012-8-12 16:11
本帖最后由 koutx 于 2012-8-12 21:39 编辑

其实建一个自定义菜单，将有关报表的预览、打印、页面设置等命令按钮拉进去，是最省事的方法。

上面写错了，应该是自定义工具栏。

作者: gxy1000 时间: 2012-9-8 21:07

作者: 鱼儿游游 时间: 2012-9-9 07:58

koutx 发表于 2012-8-12 16:11
其实建一个自定义菜单，将有关报表的预览、打印、页面设置等命令按钮拉进去，是最省事的方法。

上面写错 ...

我也是这样做的：显示报表后，在报表增加了右菜单，很方便的。

作者: 灰太郎 时间: 2012-11-25 11:12
llllllllllllllllllllll

作者: 有雪更有风 时间: 2013-12-28 23:26
111111

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)