如何实现此报表啊,请高手帮忙,小弟感激涕零!
1.小计是每页中记录的金额之和,总计是当页小计+上页总计+..+首页总计之和,随页码变化，就是第2页总计=第2页的小计+第1页的总计,以此类推.
2.第3页序号23以下空记录行如何实现,就是比方说我记录为7，那么自动判断为共1页,空3条记录为空行;比方说我记录为16，那么自动判断为共2页,空4条记录为空行,当然空行记录就是要打印出来的,否则下面没有线的表格比较难看.

第1页的报表   
序号    单价    数量    金额    税率    税额
1    85.90     13    1116.70    17%    189.84
2    60.23     10    602.30     17%    102.39
3    125.68    20    2513.60    17%    427.31
4    112.20    18    2019.60    17%    343.33
5    62.30     26    1619.80    17%    275.37
6    85.60     33    2824.80    17%    480.22
7    48.80     24    1171.20    17%    199.10
8    47.65     17    810.05     17%    137.71
9    49.28     20    985.60     17%    167.55
10   30.60     10    306.00     17%    52.02
小计               13969.65            2374.84
总计               13969.65            2374.84
                    
第2页的报表
序号    单价    数量    金额    税率    税额
11    69.54     11    764.94     17%    130.04
12    68.75     8     550.00     17%    93.50
13    98.68     15    1480.20    17%    251.63
14    15.87     16    253.92     17%    43.17
15    58.25     17    990.25     17%    168.34
16    15.70     23    361.10     17%    61.39
17    45.63     20    912.60     17%    155.14
18    28.65     10    286.50     17%    48.71
19    43.12     22    948.64     17%    161.27
20    20.70     15    310.50     17%    52.79
小计                  6858.65           1165.97
总计                  20828.30          3540.81
                    
第3页的报表
序号    单价    数量    金额    税率    税额
21    15.85     17    269.45     17%    45.81
22    16.87     30    506.10     17%    86.04
23    13.00     25    325.00     17%    55.25
24
25            
26                  
27                  
28                  
29
30                  
小计                   1100.55          187.09
总计                   21928.85         3727.90


[ 本帖最后由 jimihy 于 2011-3-24 14:49 编辑 ]

GO TOP
P111=1
set print ON
DO WHILE.NOT.EOF()
?chr(27)+'I'+'D'
?'                                     工资支付单'
?''
?''
?CHR(27)+'I'+'A'
?'  单位:'+GB2+'                                                                        19'+N1+H1+'年'+Y1+F1+'月'+R1+R2+'日'
?'┏━━┯━━━┯━┯━━┯━━━━┯━━━━┯━━━━┯━━━━┯━━━━┯━━━━┯━━━━┯━━━━┓'
?'┃序号│姓  名│出│标准│奖   金1│奖   金2│奖   金3│其   它 │应发金额│应 扣 款│实发金额│银行帐号┃'
?'┃    │      │勤│工资│        │        │        │        │        │        │        │        ┃'
X7=0
DO WHILE.NOT.X7=20
?'┠──┼───┼─┼──┼────┼────┼────┼────┼────┼────┼────┼────┨'
?'┃'+STR(RECNO(),4)+'│'+GB1+'│  │    │'+STR(GB3,8,2)+'│'+str(GB4,8,2)+'│'+STR(GB5,8,2)+'│'+STR(GB6,8,2);
+'│'+STR(GB7,8,1)+'│'+STR(GB9,8,2)+'│'+STR(GB10,8,1)+'│'+GB11+' ┃'

 IF EOF()
  exit
  ELSE
  skip
   if eof()
     exit
   endif
 ENDIF
 X7=X7+1
 ENDDO
  DO CASE
     CASE P111=1
     PXX='A'
     CASE P111=2
     PXX='B'
     CASE P111=3
     PXX='C'
  ENDCASE
IF EOF().AND.X7<20
J3=19-X7
DO WHILE J3<>0
?'┠──┼───┼─┼──┼────┼────┼────┼────┼────┼────┼────┼────┨'
?'┃    │      │  │    │        │        │        │        │        │        │        │        ┃'
J3=J3-1
ENDDO
ENDIF
?'┠──┴───┼─┼──┼────┼────┼────┼────┼────┼────┼────┼────┨'
?'┃ 合      计 │  │    │'+STR(&PXX.S01,8,1)+'│'+str(&PXX.S02,8,1)+'│'+STR(&PXX.S03,8,1)+'│';
+STR(&PXX.S04,8,1)+'│'+STR(&PXX.S05,8,1)+'│'+STR(&PXX.S06,8,1)+'│'+STR(&PXX.S07,8,1)+'│        ┃'
?'┗━━━━━━┷━┷━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┛'
?'  单位负责人:                      工资负责人:                              填表人:'
?''
 IF .NOT.EOF()
  SET PRINT OFF
  WAIT '                      请换纸,按任意键继续.'
  SET PRINT ON
 ENDIF
P111=P111+1
ENDDO
set print off
USE

*这是一个控制一页20行的打印程序，记录打印完毕后，仍然打印空白格到满20行为止，可以参考。

请试验下列的附件。命令窗口内执行： do tt
退出报表时，按 Esc 键

感谢qingfameng大哥,谢谢您的指导,我原封未动的把程序复制后(见附件),下面几个问题问你一下:
1.下面的小计栏内 金额不动,就是它不肯计算,合计的数值倒是对的
2.共几页第几页 不对
3.关闭小狐狸后反复叫我打开表
4.上次说的3个报表其实是1个报表,我说错了,对不起.
真的很感激你!

[ 本帖最后由 jimihy 于 2011-3-25 13:52 编辑 ]

对楼主的回帖，简单修改了几个地方，请参考。欢迎网友之间多交流！