用fastreport怎么做个从TStringList里取数据? (100分)

W

wind520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-20

• #1

用fastreport怎么做个从TStringList里取数据?
然后怎么赋值给已经做好的aa.frf文件里的变量了
并且打印时，直接打印，不要预览？

 

T

ty123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-20

• #2

>>怎么赋值给已经做好的aa.frf文件里的变量了
参考我在另一个帖子的解答
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2229322
>>打印时，直接打印，不要预览
if frReport1.PrepareReport then
frReport1.PrintPreparedReport('', 1, True, frAll);

 

N

Netsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-20

• #3

>> 打印时，直接打印，不要预览
我的见解是如下：将ShowPrintDialog设为 False
With frReport1do
begin
PrepareReport;
PrintPreparedReportDlg;
end;

其他的相信上面的老兄可以帮你解决吧，
搞不定说出来啦，呵呵~~~~~~~~~~~~~~~~~~~~~~~`

 

W

wind520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-01

• #4

fastreport 还是蛮好的，只不过用起来还是蛮麻烦的，自己慢慢搞咯
谢谢大家了

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-01

• #5

关于第一个问题
for i:=0 to _sublist.Count-1do
//设置中文列标题
begin
_Memo1:= TFRmemoview.Create();
with _Memo1do
begin
if _ifgrid then
prop['frametyp']:=15
else
prop['frametyp']:=0;
prop['Alignment']:='10';
prop['Autowidth']:=false;
memo.add(_sChineseList);//////////
Font.Size:=_rfont;
SetBounds(mleft,_NextTop,StrToInt(_sWidthlist),mheight);
mleft:=mleft+Prop['width'];
end;
_Page.Objects.Add(_Memo1);
end;
直接打印的话，和楼上的兄弟一样的
if frReport1.PrepareReport then
//打印准备
frReport1.PrintPreparedReport('', 1, True, frAll);

 

W

wind520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #6

多人接受答案了。