我想把FR报表导出为WORD文档怎么实现?
1 我的报表内容是表格,导出后也要求是表格。
2 我用FR控件frRTFExport导出,if frReport1.PrepareReport then
frReport1.ExportTo(frRTFExport1,'c:\aa.rtf');但是怎么确定什么时候PrepareReport = true?
我的代码是:
if not varisnull(AJQlabg['ajlsh0']) then
ajlsh := AJQlabg['ajlsh0']
else
begin
application.MessageBox('无单据可供打印!', '系统提示框', mb_ok + mb_iconstop);
exit;
end;
ajreplabb := tajreplabb.Create(self);
ajreplabb.Query1.Active := false;
ajreplabb.Query1.ParamByName('ajlsh0').asstring := ajlsh;
ajreplabb.Query1.Active := true;
if ajreplabb.Query2.Active = false then
ajreplabb.Query2.Active := true;
if length(trim(AJQLABG.FIELDBYNAME('AQZY00').ASSTRING)) < 500 then
FrPrint(ajrepLABB.frReport1, 'LABB')
else
FrPrint(ajrepLABB.frReport1, 'LABB1');
1 我的报表内容是表格,导出后也要求是表格。
2 我用FR控件frRTFExport导出,if frReport1.PrepareReport then
frReport1.ExportTo(frRTFExport1,'c:\aa.rtf');但是怎么确定什么时候PrepareReport = true?
我的代码是:
if not varisnull(AJQlabg['ajlsh0']) then
ajlsh := AJQlabg['ajlsh0']
else
begin
application.MessageBox('无单据可供打印!', '系统提示框', mb_ok + mb_iconstop);
exit;
end;
ajreplabb := tajreplabb.Create(self);
ajreplabb.Query1.Active := false;
ajreplabb.Query1.ParamByName('ajlsh0').asstring := ajlsh;
ajreplabb.Query1.Active := true;
if ajreplabb.Query2.Active = false then
ajreplabb.Query2.Active := true;
if length(trim(AJQLABG.FIELDBYNAME('AQZY00').ASSTRING)) < 500 then
FrPrint(ajrepLABB.frReport1, 'LABB')
else
FrPrint(ajrepLABB.frReport1, 'LABB1');
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货