设计了一个购销系统，打印出入库单时要求每页打印5---6行记录，其它方法我也不会，就在报表源表里增加一个用于分组的字段，使它每5---6个记录输入一个相同的值，然后在打印报表时以此字段作为分组依据，总体还可以，但是，打印到最后一页不足5--6个记录时，就会比前面的报表短一点，我想用空表格来补齐，但是没想到办法。请高手指点。我是这样写的：
CLOSE all
SET TALK off
SET SAFETY OFF

USE ztsytbl
COPY STRUCTURE TO ss
ALTER TABLE ss ADD COLUMN Fax I(4)
SELECT ss

APPEND FROM ztsytbl FIELDS khname,yj
GO top
FOR n=1 TO RECCOUNT()
IF NOT EOF()

REPLACE fax WITH CEILING(RECno()/5)
skip
endif

ENDFOR
REPORT FORM dybb.frx TO PRINTER prompt












[ 本帖最后由 ilikeflash 于 2011-5-3 22:14 编辑 ]

我是将要打印的表生成一个可以编辑的临时表，然后用记录数除以每页行数，如果有余数，则用appe blan添加空行使之满页。再用临时表来打印。

  把临时表追加空记录，如果正好是5-6条记录整倍数不追加，否则少几条追加几条，打印出来的报表，就是你所希望的报表。

谢谢各位提示，我把命令这样改了一下，已经成啦。
CLOSE all
SET TALK off
SET SAFETY OFF
USE ztsytbl
COPY STRUCTURE TO ss
ALTER TABLE ss ADD COLUMN Fax c(20)
SELECT ss
APPEND FROM ztsytbl FIELDS khname,yj

IF RECCOUNT()/5<>0
FOR i=1 TO 5-MOD(RECCOUNT(),5)
APPEND BLANK
endfor
 endif


GO top
FOR n=1 TO RECCOUNT()
IF NOT EOF()
REPLACE fax WITH STR(CEILING(RECno()/5))
skip
endif
ENDFOR
REPORT FORM dybb.frx TO PRINTER prompt