弹出窗体无法打印

fswxs

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

Victor_Duane

不知你的代码是如何写的

fswxs

没有写代码的，直接按菜单上的打印

Victor_Duane

那是一定打不了的了，呵呵

andymark

DoCmd.OpenReport "报表"

fswxs

是这样的，程序有个背景，在自定义菜单中选某个查询，查询结果用数据表窗体显示。为了不使点背景的时候查询窗体消失，所以设置为弹出。有时候想直接打印出来（当然粘贴到EXCEL没问题了，麻烦），不是生成报表，就直接按文件——打印。

andymark

调用报表打印，能生成各种复杂的报表,就如同窗体作为输入界面一样, 为什么非要在表里输入呢

fswxs

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

t小宝

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

fswxs

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