弹出窗体无法打印

t小宝

本来数据库窗口是隐藏的?

t小宝

要隐藏数据库窗口,改成这样:
Public Function Prtfrm()
On Error Resume Next
    DoCmd.SelectObject acForm, Screen.ActiveForm.Name, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, , True
    DoCmd.RunCommand acCmdWindowHide
End Function

[ 本帖最后由 t小宝 于 2007-12-18 17:11 编辑 ]

fswxs

感谢t小宝先！我在启动里设置是隐藏数据库窗口的。上面的代码确实可以打印弹出窗体，但是数据库窗口还是会出现，打印的时候和弹出窗体一起消失了。还有办法吗

t小宝

使用PrintOut方法须要打开数据库窗口,但是上面的代码弹出窗体应该不会消失的吧,
可以把第2句
DoCmd.SelectObject acForm, Screen.ActiveForm.Name, True
改为
DoCmd.SelectObject acForm, , True
比较好.

fswxs

谢谢t小宝！修改第2句就可以了
你也可以做版主了

tz-chf

直接按ctrl+p，或者建一个宏，做一个菜单执行这个宏。