QReport，一页打印多个标签，有些QRDBText的长度超过了网格线，如何实现自动调小字体？ ( 积分: 50 )

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #1

谢谢。

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #2

谢谢。

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #3

QR好像不可以的，你换个报表控件吧

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #4

啊?可是我的报表已经设计完成了,就这个小问题没弄好呀!
谁来帮帮我?

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #5

需要打印的标签有5000左右，长度超标的字段比较少，估计100个左右。有没有什么办法呀?

 

T

tsoftware

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-09

• #6

我都係建议你换一个报表工具，再做过
ＱＲ的功能实在太有限啦，开发报表太花时间了
换成ＦＡＳＴＲＥＰＯＲＴ吧

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #7

只是一个小程序...总共也就这么一两个报表而已呀.
fastReport我也不会用。。。。得现学。。。
真的没办法么？

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #8

着急啊。。。

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #9

[][][]

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-12

• #10

？？？

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-12

• #11

u p

 

A

a-ming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-13

• #12

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
while qrdbtext1.width>30do
// 数字30为Qrdbtext1的最大宽度
qrdbtext1.Font.Size:=qrdbtext1.Font.Size-1;
end;

 

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #13

a-ming,不行啊...
我想其他办法:1.处理dataset,把一个长字段变为两个短字段。用两行两个QrDBtext显示。
2。改用fr. fr支持超长字段自动换行。

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #14

其实是我的失误。弄了个很短的字段来测试，length()不够大，所以，QrDBText的字体值没有变化。以至测试不出来效果。以下为解决问题的代码。
--------
procedure TfPrtLable.aBeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if length(QyPrint.FieldByName('fatModel').AsString) > 16 then
QRDBText2.Font.Size := 8 ;//10-->8
end;

procedure TfPrtLable.aAfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
QRDBText2.Font.Size := 10 ;
//8-->10
end;