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

佳佳

如题

duzili

解决办法：
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、例子如下：

游客，如果您要查看本帖隐藏内容请回复

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

佳佳

感谢

cnamos

这个你测试过了吗?我为何测试不通过?我现在遇到的问题就是打开我的窗口时用
-----------------------------
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

就差最后一步了，如何隐藏主窗口啊

koutx

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

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

yanwei82123300

谢谢分享

gxy1000

鱼儿游游

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

上面写错 ...

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

灰太郎

llllllllllllllllllllll