易宝电子贸易管理软件论坛

注册

 

发新话题 回复该主题

[分享] 打印格式里,若字段不自动换行如何使字段的字体自动缩小 [复制链接]

1#
银光图片

(1)打印预览里,查看该字段打印出来可以看到几个字符

例如上图的,如果没有自动换行,型号显示出来的就是“CFR-25JT-52-120R-”

一共17个字符,或者在数据里输入select len('CFR-25JT-52-120R-')可知道


2)在打印格式里,选中该字段格式化字段-字体点击字体大小的


3)在格式公式编辑器里输入

Local NumberVar strLen := Len(trim({SellOrderItem.proPartNumber}))-17;//得到多余出来的字

符串长度,如果为负数,没为小于零

Local NumberVar i;//设置字体倍增次数每次 增加0.1大小

Local NumberVar str;//得出来的字体大小

if strLen>0//当大于零是说明超过了规定的字符串个数。

then

(

For i := 1 To strLen Do

(


//Local NumberVar charPos := strLen - i + 1;


str := 10-int(0.5*i)
// * length

);

str

)

else

(

10

)




分享 转发
TOP
发新话题 回复该主题