[测试]用弹出式子窗体预览打印报表

Trynew

[在8楼有更新程序（加页面设置和比例调整）]

解决2000的报表不能设弹出式的问题，在Winme+Office 2000下可以运行，请大家帮忙测试一下其他的windows及office版本下有无出错。

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

[此贴子已经被作者于2005-2-6 10:51:51编辑过]

高处不胜寒

Win98+Office2000通过收藏，谢谢

Trynew

我在一台Win2000+Office XP运行时，标题栏子窗体被盖在下面，另外打印时不是显示的横向页面设置。Win2000+Office 2000则没有这个现象。

zhengjialon

是否和yuab 的原理一样?我以前一直用他写的函数,没有出过什么差错,呵呵http://www.office-cn.net/forum.php?mod=viewthread&tid=288

mrtang

好，好，好，好，一定要好好学学！！！！

wuyuanhui

美中不足：缺少显示比例、页面设置

Trynew

以下是引用wuyuanhui在2005-2-5 16:46:24的发言：

美中不足：缺少显示比例、页面设置

页面设置其实在打印对话框就可以设定，现在加上显示比例、页面设置功能。

其实方法很简单，就是用Api函数：SetParent把一个弹出式窗体设为报表的父窗体，使报表能在其他弹出示窗体前面显示而不被挡住。打印、显示比例、页面设置功能都用Docmd.RunCommand来完成。

有一个问题就是报表向前跳页（如点最后一页），再往前翻页程序就会出错退出。现在就是在报表打开时，用Sendkeys "{PageDn}"逐页来翻页，则不会出错。

laiguiyou

我在一台Winme+Office XP运行时，标题栏子窗体被盖在下面

wsxwsx1

你做得非常不错，向你学习！！！！

发现新问题，如果数据量大的情况下，会发生致命错误,各位运行一下就知道了是什么错误！！

如果数据比较多（我的报表有100多页），就会报错，错误信息如下:

access2000发生错误，退出

各位可以试一试，把数据量加太，会不会报错？？？用pagedown ,及pageup来翻页，看是否出现新的问题？？？



这是更改后新程序

[此贴子已经被作者于2005-6-8 15:05:01编辑过]