请较各位高手：vfp报表每页固定行数固定行高的情况下，能不能实现自动缩小字体填充功能？

发现代码 2012-05-10 09:28:25

请较各位高手：vfp报表在每页固定行数的情况下，能不能实现自动缩小字体填充功能？请指教！
我的报表有的字段记录比较长，接近250个字符，而大多数情况下字段记录都在50个字符以内，甚至更少的才20个字符不到。如果在报表设计时，按照比较长的记录预留空间，那在打印的时候，一方面是浪费纸张，另一方面更影响美观。如果按照50个字符的宽度设计，再设定好字体大小则美观多了，而且还不会显得很浪费纸张。但这样的话，超过50记录就会不能完全打印了，这就不符合报表设计的要求了。要怎样才能做到呢？请各位高手帮帮我，先谢了！

...全文

1309 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

dfwxj 2012-05-17

打赏
举报

要改变字体的大小，直接修改报表的记录

发现代码 2012-05-11

打赏
举报

你的方法可行，我的方法也能实现，运行正常。不过between()很不错，交流就有提高，一个between()解决了多个控件叠加的问题，我的那个是两个控件叠加。与时俱进老师真是倾囊相授，毫无保留啊。大家向他致敬！

lygcw9602 2012-05-11

打赏
举报

打印条件：len(allt(字段名)) >＝112
这个打印条件有点问题，应该用 BETWEEN(len(allt(字段名)),1,50) 类似的方法设置。

发现代码 2012-05-11

打赏
举报

vfp 处处体现智慧呀，这就是我喜欢vfp的原因。

发现代码 2012-05-11

打赏
举报

好了兄弟们，我还是告诉大家吧。我个问题让我思考了好久，都没能解决。在网上搜了好久，也没找到答案。昨晚我也和“与时俱进”聊了好久，他也说网上关于报表的贴子太少了，尤其是代码方面的。估计高手们可能都是通过对EXCEL的控制来实现报表效果的。但我是菜鸟，有些句子还看不懂，而且编程还麻烦，不如用VFP报表来得直观。对于导出EXCEL，我只是导出罢了，不作其它修饰，用户需要的话，打开EXCEL进行编辑排版就OK了，我觉得也远比我用代码排版来得简单。所以我做一个固定的VFP报表来打印数据处理的结果，就是为高效与简单，另外我也设置了导出Excel功能，用户可根据需要来选择是用我的报表，还是自己用Excel排版。
回到正题，再说这个实现字体自动变小填充的事。我在网上没有找到答案，后来在一篇其他方面的贴子里，受到别人的启发。贴子里说到做两个相同的控件事，我马上想到了解决我的问题的办法。
我是这样做的，做两个或更多相同的控件，在控件的打印条件里写上表达式，如果满足就用这个控件打印，如果满足另一个条件就用另一个控件打印……，每个控件设置好字体大小。这是一个变通的办法，我不知道在报表运行时如何用命令改变字体大小，而我知道如何当前记录该字段的大小，所以根据这个我想出了这个变通的办法。真条条大路通罗马呀。既然都告诉了就全部告诉吧，我的表达式如下（这个对于高手绝对这不算什么再简单不过了，太对于菜鸟这个肯定有帮助）也奉献给大家吧。设置打印条件：len(allt(字段名)) >＝112

发现代码 2012-05-10