关于批量打印报表页码显示不正确的问题

温柔一刀　发表于：2013-09-18 15:39:39 　

运行没有出错,

打印出来时,页码第1页没有显示

而下个分组的凭证号却变成1/1 1/5 2/5 3/5 4/5 ?????

这是什么原因?

每页为15行

这是打印时的:

Dim Num As Integer
Num = DCount("财务凭证号", "网银导出数据报表管理", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = IIf(Num Mod 15 = 0, Num \ 15, Num \ 15 + 1)
Me.TO = IIf(i Mod 15 = 0 And i <> 0, i \ 15, Num) & "/" & Num

原因：

字段中文字的内容不是固定的，

可能是24个字符，也可能是4个字符，要看具体客户名称字符数，请在帮助处理问题时，也要考虑到字段字符多与少的问题？

字符多，行数必然便少，字符少，行数又相应增加了。这种随机相应的判断也要有，请高手！

也就是有几个字段，比如：单位名称等字段中的汉字个数不是固定的，有时长达26个汉字，有时仅有4个汉字，造成行数时多时少。

Top

cspa 发表于：2013-09-18 16:05:16

最好能上传实例

Top

沧海桑田发表于：2013-09-18 16:09:14

以最多的客户名称字符看自动跳几行，然后以此为基准调整行距，比如最多26个汉字在客户名称文本框内自动换行占3行，则把文本框高度调整为能容下3行（即行距），保证每页行数一样（不满页的除外）

Top

2689906881 发表于：2013-09-23 11:24:33

在苍海桑田广大网友的帮助下，今天终于完成了，谢谢你们！

解决最后的方法：

1.以最多的客户名称字符看自动跳几行，然后以此为基准调整行距，比如最多26个汉字在客户名称文本框内自动换行占3行，则把文本框高度调整为能容下3行（即行距），保证每页行数一样（不满页的除外）

2.正确代码为：

Dim Num As Integer
Num = DCount("财务凭证号", "网银导出数据报表管理", "财务凭证号 ='" & Me.财务凭证号 & "'")
Num = IIf(Num Mod 10 = 0, Num \ 1, Num \ 10 + 1)
Me.TO = Int(Me.i \ 10) + 1 & "/" & Num

真诚感谢一位网友花了同天时间为我解决页码显示不正确的问题，谢谢！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

关于批量打印报表页码显示不正确的问题