| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 697 人关注过本帖
标题:如何设定报表备注刑字段内打印行距
只看楼主 加入收藏
xtxzgl
Rank: 1
等 级:新手上路
帖 子:76
专家分:0
注 册:2012-8-22
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:6 
如何设定报表备注刑字段内打印行距
用设计向导设计一打印报表,发现报表备注型字段打印行距有点小,想调整的大一点,请问怎么调整。
搜索更多相关主题的帖子: 如何 
2014-01-27 09:42
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
把报表往下拉一下
2014-01-27 10:33
qczx3358
Rank: 2
等 级:论坛游民
帖 子:44
专家分:15
注 册:2014-1-19
收藏
得分:10 
可以把备注型字段转换到文本型字段中,从备注型字段截取报表中的字调整后按行显示。
本人写的一部分代码,仅供参考
**备注内容到字符内容的转换,按报表中字符转换
if used("temp1")&&判断temp是否打开
    sele temp1
else
    sele 0
    use temp1
endif

**赋值需要转换的字段到变量
abc1=案情摘要+chr(13)+chr(10)&&把事实备注字段内容赋值abc1
abc2=办案意见+chr(13)+chr(10)

if used("lsb1")&&判断lsb是否打开
    sele lsb1
else
    sele 0
    use lsb1
endif
delete all&&清空lsb所有记录
pack
append blank&&lsb添加空记录

**求各变量字段字符串长度
len1=len(abc1)&&求abc1字符串长度
len2=len(abc2)

**提取字段字符到临时表
**案情摘要字段
k=50    &&通过输入非汉字字符的奇偶性来判断是否产生半个汉字产生>128
p=0
if asc(subs(abc1,k,1))>128
    for i=1 to k
    if asc(subs(abc1,i,1))<128
        p=p+1
    else
        p=p
    endif
    endfor
    if mod(p,2)=1
        k1=k        &&奇数
    else
        k1=k+1            &&偶数
    endif
else
    k1=k+1
endif
    a1=subs(abc1,1,k1-1)        &&abc1提取25个字
    replace 案情摘要1 with a1    &&变量a值给字段案情摘要1
   
    b1=len1-len(a1)
if b1>54
    c1=subs(abc1,k1,54)&&提取27个字
else
    c1=subs(abc1,k1,b1-2)
endif
    replace 案情摘要2 with c1
   
    d1=len1-len(a1)-len(c1)
if d1>54
    e1=subs(abc1,k1+54,54)&&提取27个字
else
    e1=subs(abc1,k1+54,d1-2)
endif
    replace 案情摘要3 with e1
   
    f1=len1-len(a1)-len(c1)-len(e1)
if f1>54
    g1=subs(abc1,k1+108,54)&&提取27个字
else
    g1=subs(abc1,k1+108,f1-2)
    replace 案情摘要4 with g1
endif
2014-01-27 14:02
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:303
专家分:769
注 册:2006-5-22
收藏
得分:0 
要想漂亮,导出到WORD中

2014-01-27 17:14
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
数年前,我在网上查到过对打印报表中的文本框中行距的修改帖子。
经测试,是有一点效果,大致可以增加百分之十几的行距,效果不理想。
方法比较麻烦,大致是:用 USE 打开报表文件,然后修改其中的某个参数。
这个参数是用两个相同的文本框所处位置差距得到,还要实际测试。
……总之麻烦,效果还不好。不如用3楼的方法。

相互学习,互相交流,共同提高。
2014-01-27 18:13
b土木丁口
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:264
专家分:189
注 册:2013-9-12
收藏
得分:0 
学习
2014-01-27 20:46
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:10 
*如果备注字段很大,也可以如下分段:(仅供参考)

    close all
    create cursor lsb(案情摘要 c(100))
        nlen=70 && 假如每行规定70个字符,自设定。  
        cr=备注字段的值 && 值内部不要有大于70个字符的空格。
        cr=strtran(cr,space(68),'')
    do while.t.
       cp=substrc(substr(cr,1,nlen),1)
       nr=len(cp)
       if nr>0
          insert into lsb value(cp)
       else
          exit
       endif
          cr=stuff(cr,1,nr,'')
    enddo
    brow
2014-01-28 00:05
快速回复:如何设定报表备注刑字段内打印行距
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012095 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved