使用过QR打印的朋友请进来，如何在程序中根据qrdbrichtext（qrdbrichtext在qr的detail band中）中内容的长度改变字体大小(200

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #1

使用过QR打印的朋友请进来，如何在程序中根据qrdbrichtext（qrdbrichtext在qr的detail band中）中内容的长度改变字体大小(200分)<br />使用过QR打印的朋友请进来，如何在程序中根据
qrdbrichtext（qrdbrichtext在qr的detail band中）
中内容的长度改变字体大小

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #2

在Band 上放置一个 QRLabel
在QRLabel 的OnPrint 事件中
根据Field的长度计算字体的大小
然后设置RichText的字体
最后Value=''就不会把这个QRLable打印出来

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #3

TO REALLEARNING 我试了一下,好象不行
因为备注字段是在detail band中,不知QR是如何从数据表中提取数据的.
应该在哪个事件中写代码才是对的.

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #4

onneeddata()

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #5

to stuwe ,你是指qrdbrichtext 中的onneeddata事件吗

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #6

不是
是整個報表的

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-14

• #7

不可以呀。

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-15

• #8

我用的是qrrichtext
在onneeddata
if not adoquery1.eof then
begin
qrlabel1.caption:=adoquery1.fieldbyname('ddxxbh').asstring;
qrrichtext1.Lines.Text:=adoquery1.fieldbyName('nr').asstring;
if length(adoquery1.fieldbyName('nr').asstring)>10 then
qrrichtext1.Font.Size:=8
else
if length(adoquery1.fieldbyName('nr').asstring)>20 then
qrrichtext1.font.size:=6
else
qrrichtext1.font.size:=10;
adoquery1.next;
MoreData:=true;
end
else
moredata:=false;

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #9

请问stuwe,你的QRRICHTEXT是放在QR中的DETAIL BAND 中吗,我试过如果放在别的BAND中
(如TITLE),是可以控制字体大小的,但动态从数据库中检索数据,根据数据长短动态控制
QRDBTEXT字体大小,却不可以,真不知QR到底能不能实现啊.

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #10

是的
程序中nr字段也是ntext型的
我試過是可以改變其字體大小

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #11

感谢stuwe这么热情为我解决问题.
我打算以后的报表用别的控件做,你认为哪个好点(RAVE OR FASTREPORT).
他们对中文报表(比如自动换行等,我给QR搞怕了)支持如何?

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #12

我只會用qr,沒什么辦法
還不行嗎?

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #13

用qr实现这样的功能费事而且效果肯定不会好，试试别的吧
d7不是集成了rave了吗，试试先！

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #14

以下是我在QR中的ONNEEDDATA事件中写的代码.
if length(adotable1.FieldByName('名称').AsString)<=6 then
qrdbrichtext1.Font.Size:=22
else
if (length(adotable1.FieldByName('名称').AsString)>6) and (length(adotable1.FieldByName('名称').AsString)<=12) then
qrdbrichtext1.Font.Size:=20
else
if (length(adotable1.FieldByName('名称').AsString)>12) and (length(adotable1.FieldByName('名称').AsString)<=24) then
qrdbrichtext1.Font.Size:=18
else
if length(adotable1.FieldByName('名称').AsString)>24 then
qrdbrichtext1.Font.Size:=13 ;
可是不知如何,依然不行.帮忙看看好么?

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #15

試試用QRRichText
不要用 qrdbrichtext1
不要連數據庫的

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #16

多谢stuwe的热情帮助,终于可以了.
看来QR并不适合做动态报表,我用了它不到两个月,
可是我已经吃够了它的苦头.以后还是用别的报表
工具好.
stuwe兄,可以留下你的EMAIL么,我想以后有问题可以向你
请教,我的EMAIL是 miscad@163.com

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #17

stuwe@163.com
還得請你多指教
其實qr我也覺得很不好用﹐但沒辦法﹐我只會用這個﹐
前陣搞自定義格式打印﹐搞了很久才搞定﹐所以也學了點

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #18

thanks
那以后我们多多交流.

 

M

miscad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #19

代码: