主题：[求助]关于报表套打问题的深层提问~

几天前，就易表套打问题求助过，但是版主给的函数实在太深奥了，完全看不懂：）今天附上表格，想请版主细致的解释一下函数的含义~~万分感谢
原来的帖子地址在这里：http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=9&topic=20813

[这个贴子最后由fuanzj在 2011/12/13 08:44am 第 1 次编辑]

egd文件下载
这个是我的文件，我只想要套打：序号和姓名两列
纸张类型为A4纸，横向，每列套打20行内容，序号和姓名列每页套打4列，套打的排序方法为下面这样的方式：
序号姓名 序号姓名 序号姓名 序号姓名
1          6          11      16
2          7          12      17
3          8          13       18
4          9          14       19
5          10         15        20

[这个贴子最后由fuanzj在 2011/12/13 08:47am 第 2 次编辑]

egd文件下载
这个是版主原来解答我的表格，函数实在是太深奥了，希望版主能给我详细的解答一下。还有，版主发的报表，套打的序号排列方式是
序号姓名  序号姓名  序号姓名  序号姓名
1             2          3       4
5             6          7       8

9            10          11      12
13           14           15      16
17          18           19        20
能把排序的方式修改为楼上我要求的排序方法吗？？

If([%A%]="",MsgBox("打印什么？",0),Eval(mid(Rept(" And DeleteCol(Grid,3)",Cols-2),5)) And SetVariable("%B%",1) And Eval(mid(Rept(" And AddCol(Grid,""序号""+Text([%B%]),0, True ) And EvalFor(Grid,""序号""+Text([%B%]),""Cell(Row+[%B%],1)"") And AddCol(Grid,""姓名""+Text([%B%]),0, True ) And EvalFor(Grid,""姓名""+Text([%B%]),""Cell(Row+[%B%],2)"") And SetVariable(""%B%"",[%B%]+1)",Number([%A%])-1),5))) And AddCol(Grid,"k",1, False ) And EvalFor(Grid,"k","Mod(Row,Number([%A%]))") And FilterFor("k","=",1,2) And Report(Grid,[%A%],1,Rows,0) And Do(112) And Eval(mid(Rept(" And DeleteCol(Grid,3)",Cols-2),5))
实在太深奥了这个，版主可以简化下，或者指导一下每一个嵌套的函数的含义吧。

egd文件下载

晕死，吐血！！！居然如此简单！！！！！！！！！！！！！
多谢版主了！！

再请教下版主，细节区，是如何做到把他缩小到刚好和两列一样宽的啊？？

哦，找到了，多谢版主：）