如何自动生成单位页码目录

付谦

打印单位花名册后，因页数太多，为便于查找，需要编写单位页码目录，用手工编写有点麻烦，能否让它自动生成呢？如：
单位            记录号
单位一       1---52   
单位二       53---59
单位三       60---96
      ------------
单位十 八      888--1000
如果每页打印12条记录，如何用VBA实现单位页码目录，如
单位           起始页
单位一       1
单位二      5
单位三       7     ------------
单位十 八   74

ACMAIN_CHM

1. 给例子的时候要仔细，给准确，否则别人只能猜了！！！
单位二       7
这个7 是怎么来的？

2. VBA中你可以直接  INT((记录号-1)/12)+1 得到该记录号所在页。



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

付谦

单位二是5，输错了.记录号本是随机数，原是不知道的，上面我输的具体数字仅是举例说明，既然事先不知道每个单位的第一条记录号，代码又怎写？

andymark

每页的行数这个是可以知道的

统计一下各单位的记录数,多少页数也就不难知道

单位一 : 3
单位二 : 6
单位三 :  4

按顺序累加:
页码分别是

单位一:  1-3
单位二: 4-9
单位三: 10-13

付谦

4楼的办法是有问题的，如果单位一有52人，每页12人，按你的算法页数为5；如果单位二有3人，每页12人，页数为0，按顺序累加为6了，实为5才对，如果单位二有11人呢？。。。。

付谦

不见高手指点，期待