50分求教delphi7的quickreport问题

显示全部楼层 · 2012-10-28 16:13:17

如果是简单的行列式报表，还是有办法的，检测要显示的记录数，如果记录条数可以挤一挤，排在一张纸上，比如一张纸可以排30条记录，目前排了三十条，还剩下二三条，这样就可以挤一挤了，方法是第一降低行高，也就是你在上面排列字段值显示组件的那一行，这行的高度是可调的，也决定整个表格的高度，然后把表格横线向上相应的提一下。检测记录数，降低高度，改变横线的位置，反这些代码写在 QuickRep1.Preview代码之前。就可以了，你搞的那些代码不要了。用不那么复杂。如果是横向压缩就没有必要了，因为这只是一个报表手动设计问题。至于究竟要降低多少高度，可以挤多少条记录，这完全是一个个人见识问题，比如我认为可以挤进10条，而你认为可以挤进15条。这个要凭个人的...

千问 · 2012-10-28 16:13:17

liu55721的办法是手工修改，与提问者的要求不符。原程序中执行 PrintReport.previewBtnClick(Sender); 这一句是重入函数，等于QuickRep1 Prepare了两次。可以这样改：1、在QuickRep1.Prepare;一句下面加上一行 Label _Next:2、将PrintReport.previe...