求助根据考号自动生成各考室桌贴模板

飞起一脚 · 发表于 2018-1-9 17:05

chxw68 发表于 2018-1-9 14:53
修改好了。

1间考室超过60人后，第二页的第59、60个考生显示不完，考号会跳到下一页。意思就是同一考室如果超过60人，后面的不能保证每页显示30名考生的内容。怎样修改？

chxw68 · 发表于 2018-1-9 17:16

后面的显示都正常呀！我不明白你的意思。调整行高、列宽、页边距那几句代码你应该能看懂，自己试着调整吧。

飞起一脚 · 发表于 2018-1-9 17:39

chxw68 发表于 2018-1-9 17:16
后面的显示都正常呀！我不明白你的意思。调整行高、列宽、页边距那几句代码你应该能看懂，自己试着调整吧。

我试着调整了的，是因为，第一页的第一行没有空两行，而后面的考帖与考帖之间都空有两行，不管你怎么调，如果大考室人多了就发生错位，就是上一页最末尾同考生的部分信息会显示在下页，跨页显示。我想到一个方式就是，考生的信息不从第1行显示起走，从第3行显示。1、2行设置为考帖之间的高度，也许这样就能解决这个问题。但是我看了一下，不知道动那个数据，使其从第3行显示起走。

chxw68 · 发表于 2018-1-9 17:47

飞起一脚发表于 2018-1-9 17:39
我试着调整了的，是因为，第一页的第一行没有空两行，而后面的考帖与考帖之间都空有两行，不管你怎么调， ...

我知道了。

chxw68 · 发表于 2018-1-9 17:53

飞起一脚发表于 2018-1-9 17:39
我试着调整了的，是因为，第一页的第一行没有空两行，而后面的考帖与考帖之间都空有两行，不管你怎么调， ...

你调页边距或行距，把分页的地方刚好调整到次页数据的顶部。如果这样太麻烦的话，我回来加个分页符。

飞起一脚 · 发表于 2018-1-9 18:06

飞起一脚发表于 2018-1-9 17:39
我试着调整了的，是因为，第一页的第一行没有空两行，而后面的考帖与考帖之间都空有两行，不管你怎么调， ...

.Columns("a:i").NumberFormatLocal = "@"
   m = 1       修改为  m=3    是不是表示从第3行显示  ？

            For i = 4 To r Step 5                修改为       For i = 1 To r Step 5
      With .Cells(i, 1).Resize(1, 10).Borders(xlEdgeBottom

这样修改了，我修改了桌贴之间的高度，好像可以每页显示30个考生数了。就是不知对整个程序有影响没有。

ggmmlol · 发表于 2018-1-10 09:24

飞起一脚发表于 2018-1-9 18:06
.Columns("a:i").NumberFormatLocal = "@"
m = 1 修改为 m=3 是不是表示从第3行 ...

求助根据考号自动生成各考室桌贴模板（谢谢）.rar (63.2 KB, 下载次数: 37)

飞起一脚 · 发表于 2018-1-10 20:15

修改后的桌贴模板

林D东 · 发表于 2019-10-28 19:32

感谢分享，很实用

boyljd · 发表于 2020-6-13 14:03

本帖最后由 boyljd 于 2020-6-13 15:02 编辑

chxw68 发表于 2018-1-9 17:53
你调页边距或行距，把分页的地方刚好调整到次页数据的顶部。如果这样太麻烦的话，我回来加个分页符。

好东西 2年了，能否帮忙改下顺序，就是数据源列标题换换顺序

考场桌贴-求改标题顺序.zip (36.02 KB, 下载次数: 14)

		自动登录	找回密码
密码			免费注册

[求助] 求助根据考号自动生成各考室桌贴模板

评分

评分