-
Test_FastReportPrint4是一款适用于查看fr3报表的万能查看器
资源介绍
Test_FastReportPrint4万能fr3报表查看器
自设计中支持按文本格式查看fr3报表,
前提是报表中最好不要有图片,否则打开会无响应或反应很慢
测试fr3文件2M左右反应很慢
procedure TFrm_BarCode.FallBitBtn6Click(Sender: TObject);
begin //默认设计
MyTmsPrintDropBtn1.FrxReport.DesignPreviewPage
end;
procedure TFrm_BarCode.FallBitBtn3Click(Sender: TObject);
begin //自写设计
MyTmsPrintDropBtn1.PrintRpt_DesignerW(FrptPrintIDX,Frpttitle,FrptFile);
end;
procedure TFrm_BarCode.FallBitBtn5Click(Sender: TObject);
begin //预览
MyTmsPrintDropBtn1.PrintRpt_PreviewNoDialog(FrptPrintIDX,Frpttitle,FrptFile);
end;
procedure TFrm_BarCode.FallBitBtn4Click(Sender: TObject);
begin //无对话框打印
MyTmsPrintDropBtn1.PrintRpt_PrintNow(FrptPrintIDX,Frpttitle,FrptFile);
end;
procedure TFrm_BarCode.MyTmsPrintDropBtn1BeforeDropMenuClick(
Sender: TMenuItem; ItemsTag: Integer; var CanClick: Boolean;
var Memo: String);
begin
MyTmsPrintDropBtn1.RptFileName:='';
end;
procedure TFrm_BarCode.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
begin
if (ACol=0 )
and (ARow=0) then begin
AEditor:=edComboList;
end;
end;
procedure TFrm_BarCode.MyTmsPrintDropBtn2BeforeDropMenuClick(
Sender: TMenuItem; ItemsTag: Integer; var CanClick: Boolean;
var Memo: String);
begin
with MyTmsPrintDropBtn1 do begin
RptPrintIDX:=0;
RptPrtTitle:='xxxxxx';
RptFileName:=gsPath+'data\test.fr3'
end;
end;
procedure TFrm_BarCode.FallBitBtn1Click(Sender: TObject);
begin
MyTmsPrintDropBtn1.FrxReport.PreviewPages.Export(frxXLSExport1) ;
end;
procedure TFrm_BarCode.FallBitBtn8Click(Sender: TObject);
begin
//初始化数据
with MyTmsPrintDropBtn1 do begin
RptPrintIDX:=StrToInt(Trim(lbe_idx.Text)); //打印机
RptPrtTitle:=Trim(lbe_title.Text); //打印时显示的文件名
RptFileName:=Trim(lbe_file.Text) //打印模板
end;
end;
end.