报表打印时每条记录用一页且仅用一页,否则提示.应该怎么做?(重新提问)

laomao

希望报表每一个记录打印在一页上,但因为内容很多有时会超出一页,希望这时程序能给出提示.请问应该怎么做?

[此贴子已经被作者于2007-3-1 0:22:17编辑过]

andymark

一般情况下每页打印的行数是固定的,打印前获取总记录数,超出每页的记录数,可作相应提示,反之则直接执行打印

wuaza

关键是这个提示写在哪里？在什么条件下触发？我是想不出来怎么做。

我刚看懂题意。这样行不？在报表上加上[pages]字段，在报表的打印事件中判断pages是否大于1就行了。

[此贴子已经被作者于2007-2-22 19:26:34编辑过]

xianbin555

在报表上建一个文本框(如:text),边框,背景设置为透明,字体设置为白色,次举为了在报表打印时不显示

在text的"控件来源"属性中设置为:=[Pages]

在报表的"打印页前"事件中输入如下代码:

Private Sub Report_Page()
If Me!Text > 1 Then
MsgBox "报表页数大于1页"
End If
End Sub

laomao

多谢几位的热心回复!不过你们的回答并非我所需,可能我说的不够清楚,我再重新描述一下:<BR/>我每次可能需要打印多条记录,并且要求每条记录独占一页,即:几条记录不能打印到同一页上,同时每条记录也不能打印到一页以上.<BR/>阻止多条记录打印在同一页上是可以做到的,问题是如果出现某一条记录因为内容太多,一页打不完的情况,怎样才能让程序知道进而提示用户呢?<BR/>

[此贴子已经被作者于2007-3-1 0:15:09编辑过]

一点通

以下是引用laomao在2007-3-1 0:05:00的发言：
多谢几位的热心回复!不过你们的回答并非我所需,可能我说的不够清楚,我再重新描述一下:
我每次可能需要打印多条记录,并且要求每条记录独占一页,即:几条记录不能打印到同一页上,同时每条记录也不能打印到一页以上.
阻止多条记录打印在同一页上是可以做到的,问题是如果出现某一条记录因为内容太多,一页打不完的情况,怎样才能让程序知道进而提示用户呢?

用 Len()求出字符的个数,当超过某一值时弹出提示

另外:打印时,打印机有提示打印多少页的