弹出窗体无法打印

fswxs

有些数据以弹出数据表窗体显示，但是打印的时候却打印的是背景。是不是因为弹出窗体不能获得焦点的缘故？有解决办法吗？

tz-chf

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

fswxs

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

t小宝

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

fswxs

感谢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 编辑 ]

t小宝

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

fswxs

t小宝的代码好厉害，竟然会跳出数据库窗口，怎么办

t小宝

建一个自定义工具栏按钮,引用以下的公共函数,即可打印当前激活的窗体(包括弹出窗体):
Public Function Prtfrm()
On Error Resume Next
    DoCmd.SelectObject acForm, Screen.ActiveForm.Name, True
    DoCmd.PrintOut
End Function

fswxs

谢谢版主！
不是输入是显示。不想那么多报表，只是一些随机的查询结果而已，有时候想打印出来看的清楚些。
看来只能粘贴到EXCEL，或者不要设置为弹出了。