关于报表的问题!(急)

zhengtianmei

我将word文档(表格)插入到access报表中，但是无论我怎么调整报表的尺寸，表格还是比word 文档中打印出来的小!我不知道为什么？请各位高手帮帮忙！我着急做报表！非常感谢！[em14]

[此贴子已经被作者于2002-11-14 8:15:32编辑过]

kiko

设置自定义MENU

zglsky

可否具体一点？

zhengtianmei

就是成为EXE文件的形式，如何实现呢？[em24]

游龙自在

有高手吗？这也是我想要用的啊！

xinbao

是高手的,忘了是谁的了
Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
' 使用举例
' 最大化 Access 窗口
'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)
' 最小化 Access 窗口
'       ?fSetAccessWindow(SW_SHOWMINIMIZED)
' 隐藏 Access 窗口
'       ?fSetAccessWindow(SW_HIDE)
' 正常显示 Access 窗口
'       ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
    fSetAccessWindow = (loX <> 0)
End Function

lgxysl

不用这么复杂，用“启动”选项就可以了，当然要用自己的菜单替换系统的菜单，还要禁止按SHIFT忽略启动选项。看看帮助吧。

zhuyiwen

请参见

http://www.office-cn.net/bbs/dis ... ID=6210&ID=6210

[em26]

zhengtianmei

我己搞定，非常感谢， I LOVE EVERYONE![em05]