word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页

共有4090人关注过本帖树形打印复制链接主题：word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页 发帖心情

Post By：2021/6/6 20:26:00 [只看该作者]

word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页

此主题相关图片如下：11.png

如何实现下述红色部分内容，实现如果只有一条数据的时候，就直接打印一页，

如果有多条数据的时候，怎么实现第一页打印完毕了如果内容列的内容还不足以是这页整个幅面的话换下一页打印的时候如何确保开头是对应的单位议程等红色部分呢？

[单位]

党史学习教育[学习方式]议程

时间：[时间]

地点：[地点]

主持：[主持人]

参会人员：[参加人员]

主题：[主题]

内容：

[内容]

[此贴子已经被作者于2021/6/6 20:25:53编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/6 20:34:00 [只看该作者]

设置为页眉，比如：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

cnsjroom

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）设置为页眉，比如：http://foxtable.... 发帖心情

Post By：2021/6/7 9:11:00 [只看该作者]

内容：

[内容]

数据表内容列值为：1、观看警示教育片；2、《坚持一体推进不敢腐、不想腐、不能腐，把全面从严治党各项要求落到实处》。

老师请问在生成word的时候有没有办法根据；这个符号自动将内容列值进行换行显示呢？

如：1、观看警示教育片；

2、《坚持一体推进不敢腐、不想腐、不能腐，把全面从严治党各项要求落到实处》。

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/7 9:22:00 [只看该作者]

单元格里要先换好行，word里才能自动换行

cnsjroom

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）单元格里要先换好行，word里才能自动... 发帖心情

Post By：2021/6/7 10:08:00 [只看该作者]

好的老师我试了一下确实在数据表里面换好行之后 word显示按照行显示了

但是数据表记录太多一个个换行不大现实

老师有没有办法直接代码根据；这个符号自动将内容列值进行换行呢？

下面的代码是我当前测试的代码，老师有没有办法修正一下，如果是最后一条的话，怎么将；换成。

Dim Country As String ="1?学习《》;2?学习《》;3?《》上册第一编第一章。"

Dim Values() As String

Values = Count ry.sp lit(";")

For Index As Integer = 0 To Values.Length - 1

Output.Show(Values(Index)& ";")

输出结果：

1?学习《》;

2?学习《》;

3?《》上册第一编第一章.; 怎么实现最后一条数据不要显示这个；符号呢？

表名：台账字段列：内容（备注型）

数据表内容列值为：1、观看警示教育片；2、《坚持一体推进不敢腐、不想腐、不能腐，把全面从严治党各项要求落到实处》。

如：1、观看警示教育片；

2、《坚持一体推进不敢腐、不想腐、不能腐，把全面从严治党各项要求落到实处》。

[此贴子已经被作者于2021/6/7 10:24:33编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/7 10:26:00 [只看该作者]

'''

for each r as row in tables("表A").rows

r("内容") = r("内容").replace("；","；" & vbcr)

cnsjroom

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）'''for each r as row in table... 发帖心情

Post By：2021/6/7 10:35:00 [只看该作者]

老师麻烦继续指导一下我运行没有成功换行

此主题相关图片如下：1.png

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/7 10:48:00 [只看该作者]

中文全角的分号，不是英文分号

cnsjroom

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）中文全角的分号，不是英文分号 发帖心情

Post By：2021/6/7 11:56:00 [只看该作者]

'''

For Each r As Row In Tables("党史教育学习台账").rows

r("内容") =StrToNarrow(r("内容")).replace(";",";" & vbcrlf) 这个地方替换的时候是否可以不要把字段原有的、号输出为？号不然我要加入下一行代码

r("内容")=r("内容").replace("?",".") 这个地方怎么换成、号呢？

r("内容")=StrToWide(r("内容"))

output.Show(r("内容"))

上述代码运行后输出：

１．学习《谈治国理政》第一卷第二章；

２．学习《中国》第二卷第一编第四章；

３．学习《论》；

４．观看《百年成钢：１００年》

老师有没有办法修正呢？

在word模板中我设定了[内容]是需要缩进两个字符结果只有第一行数据缩进了其他的数据没有进行缩进有没有办法修正呢？

在word显示为：

此主题相关图片如下：1.png

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/7 12:23:00 [只看该作者]

'''

For Each r As Row In Tables("党史教育学习台账").rows

r("内容") =r("内容").replace("；","；" & vbcr) '直接在代码编辑器里输入中文分号，不搞其它花样

output.Show(r("内容"))

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：word模板怎么控制每页只打印一条数据？且如果不足一页，相应的标题部分，自动换行到下一页