# Re: 如何用crystalreport,限定每一次列印的资料笔数?

Posted by AndyLin on January 29, 1999 at 09:45:04:

In Reply to: Re: 如何用crystalreport,限定每一次列印的资料笔数? posted by help on January 28, 1999 at 17:29:01:

: : : 如何用crystalreport,限定每一次列印的资料笔数?
: : : 例如:200笔的资料,为了确保列印标签时的误差超出可忍受范围,
: : : 故欲限定每次只能印50笔,让使用者稍作调整后,在"接着"从51笔
: : : 印到100笔......可行吗?

: : : 若不行,可有其余的替代方法?

: : : 请各位不吝赐教....谢谢~~~~~~~~~!!!!

: : 你可以只每次将50笔资料存入另外一 table ,再将此 table 由 crystal report 列印出去,不管是否有无列印,只要再按一次,就将此 table 资料删除,再继续将 51 ~ 100 之资料存入此table,再列印出来...以此类推

: 如何在用table....??????????x

我没有试过,不过应该可行:

rst=将所要列印之资料 select 进来

sub Run_Print()
dim Num as integer
dim I as integer
num=50 ----可随机设定要一次列印几笔资料
delete --- 执行删除 table 假设名称为 aa
for i=1 to num
if rst.eof then exit for
insert --- 将目前 rst 所在之record 写入 aa
next
crystalrpt.action=1 ----列印来源为 aa
end sub
只要每次执行这个副程式(或是将之写在一个 button 中)应该就可以达到每次只列印50笔
,一直到结束
以上只是粗略构想,一些错误判断和其他细节请自行考虑.

Follow Ups:

- Re: Crystal 的 Detail 的控制项控制 阿得 12:37:48 2/01/99 (0)