锐浪报表 Grid++Report 导出其它格式文件

Grid++Report控件设计的报表，不仅可以打印，还可以导出8种格式的报表文件。

在Grid++Report的打印浏览中，有指定导出文件的对话框：

但是，软件的设计中，往往需要设计出，直接导出指定文件，或在打印报表的同时也导出指定格式的文件。

相关的参数和方法的调用，详见以下说明：

一、导出默认格式报表文件

1、Grid++Report默认的导出格式，文件名默认后缀名.grd

2、直接导出默认文件

procedure TForm1.btnSaveAsGRDClick(Sender: TObject);
beginif SaveDialog1.Execute() thenGridppReport1.GenerateDocumentFile( SaveDialog1.FileName );
end;

3、加载并查看默认文件
此时，需要通过TGRPrintViewer的，显示打开的文件，TGRPrintViewer可以放在本窗口，也可以设置专用窗口中。如：ViewGRDForm

procedure TForm1.btnLoadViewGRDClick(Sender: TObject);
beginif OpenDialog1.Execute() thenbeginViewGRDForm.FFileName := OpenDialog1.FileName;ViewGRDForm.ShowModal();end;
end;

二、导出指定类型文件
1、导出文件指定类型文件有7种格式，分别为Excel，RTF，PDF，Html，Image，Text，CSV。

2、软件中，可通过TCombobox控件，指定导出的文件类型：

function TForm1.GetExportType :GRExportType;
begincase ComboBox1.ItemIndex of0: Result := gretXLS;1: Result := gretRTF;2: Result := gretPDF;3: Result := gretHTM;4: Result := gretIMG;5: Result := gretTXT;elseResult := gretCSV;end;
end;

3、预定的7种的文件后缀名，获取文件名函数

function TForm1.GetExportFileName(sPathFile :String) :String;
var ExtFileName :string;FileName :string;
begincase GetExportType() ofgretXLS: ExtFileName := 'xls';    // 扩展名gretRTF: ExtFileName := 'rtf';gretPDF: ExtFileName := 'pdf';gretHTM: ExtFileName := 'htm';gretIMG: ExtFileName := 'tif';gretTXT: ExtFileName := 'txt';elseExtFileName := 'csv';end;Result := ExtractFileDir(Application.ExeName) + '\' + sPathFile + '.' + ExtFileName;
end;

三、导出文件方式一
调用ExportDirect方法执行导出任务。
1、IGridppReport.ExportDirect函数

Function ExportDirect(GRExportType: ExportType; FileName :String;ShowOptionDlg,DoneOpen :Boolean):Boolean;

2、参数
GRExportType ExportType 指定导出的文件类型。
FileName String 指定导出的完整文件路径与文件名称。
ShowOptionDlg boolean 指定是否在导出之前显示选项设置对话框。
DoneOpen boolean 指示是否在导出数据之后用关联程序打开导出文件。

3、返回值boolean，指示是否成功进行了数据导出。

4、调用执行

  GridppReport1.ExportDirect(GetExportType(), WideString(GetExportFileName(True)), ckbShowOptionDlg.Checked, True);

四、导出文件方式二
调用Export方法执行导出任务

1、IGridppReport.Export方法
Function Export(DoneOpen:Boolean):Boolean;

2、参数
DoneOpen boolean 指示是否在导出数据之后用关联程序打开导出文件。

3、返回值bool，指示数据导出是否成功执行。 4、说明
在调用Export方法之前一定要调用PrepareExport方法，在其后一定要调用UnprepareExport方法。

5、调用执行

procedure TForm1.Button2Click(Sender: TObject);
var ExportOption :IGRExportOption;
begin//通过调用PrepareExport，Export, UnprepareExport这三个方法执行导出任务//这三个方法必须按顺序一起使用，PrepareExport返回导出选项对象的接口指针//可以设定导出选项对象的属性ExportOption := GridppReport1.PrepareExport(GetExportType());// 此处代码，不使用ExportBegin事件时需要{ ExportOption.FileName := GetExportFileName(False);case GetExportType() ofgretXLS: beginExportOption.AsE2XLSOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;ExportOption.AsE2XLSOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;gretRTF: beginExportOption.AsE2RTFOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;ExportOption.AsE2RTFOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;gretPDF: beginend;gretHTM: beginExportOption.AsE2HTMOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;ExportOption.AsE2HTMOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;gretIMG: beginend;gretTXT: beginExportOption.AsE2TXTOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;ExportOption.AsE2TXTOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;else beginExportOption.AsE2CSVOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;ExportOption.AsE2CSVOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;end;｝if ckbShowOptionDlg.Checked thenbegin//如果在选项对话框中选择了‘取消’按钮，则中止导出过程，//但UnprepareExport方法在中止前一定要被调用if Not ExportOption.ShowOptionDlg() thenbeginGridppReport1.UnprepareExport();Exit;end;end;GridppReport1.Export(True);GridppReport1.UnprepareExport();
end;

五、ExportBegin事件
ExportDirect和Export方法，执行前必要让TGridppReport控件，有一个ExportBegin事件，初始化数据。
如果省略ExportBegin事件，可以在调用之前，执行下述代码即可。

procedure TForm1.GridppReport1ExportBegin(Sender: TObject; const pOptionObject: IGRExportOption);
begin//ExportBegin 事件在将报表导出之前会触发到，无论是调用 ExportDirect 与 Export 方法，//还是从打印预览窗口等地方执行导出，都会触发到 ExportBegin 事件。//通常在 ExportBegin 事件中设置导出选项参数，改变默认导出行为pOptionObject.AbortOpenFile := true;  //导出后不用关联程序打开导出文件，如导出Excel文件之后不用Excel打开pOptionObject.AbortShowOptionDlg := not ckbShowOptionDlg.Checked;  //导出之前不显示导出选项设置对话框//指定导出文件的完整路径与文件名称pOptionObject.FileName := GetExportFileName(false); //'d:\export\my.dat';//根据导出类型设置其特有的选项参数，有关选项参数的具体信息清参考帮助文档。//IGRExportOption是导出选项的基类，其它具体导出选项的接口名称都以IGRE2为前缀case pOptionObject.ExportType ofgretXLS:beginpOptionObject.AsE2XLSOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;pOptionObject.AsE2XLSOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;pOptionObject.AsE2XLSOption.ExportPageHeaderFooter := false;pOptionObject.AsE2XLSOption.SameAsPrint := false;pOptionObject.AsE2XLSOption.ExportPageBreak := false;end;gretRTF:beginpOptionObject.AsE2RTFOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;pOptionObject.AsE2RTFOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;gretPDF:beginpOptionObject.AsE2PDFOption.Author := 'My Author';pOptionObject.AsE2PDFOption.Subject := 'My Subject';end;gretHTM:beginpOptionObject.AsE2HTMOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;pOptionObject.AsE2HTMOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;gretIMG:beginpOptionObject.AsE2IMGOption.DPI := 300;pOptionObject.AsE2IMGOption.ImageType := greitPNG;end;gretTXT:beginpOptionObject.AsE2TXTOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;pOptionObject.AsE2TXTOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;else  //CSVbeginpOptionObject.AsE2CSVOption.OnlyExportDetailGrid := ckbOnlyDetailGrid.Checked;pOptionObject.AsE2CSVOption.SupressEmptyLines := ckbSupressEmptyLines.Checked;end;end;
end;

六、导出文件同时发送Email
1、此项功能，在windows系统中,必须安装Email发送软件，并在系统中，调用指定该软件。

2、参数设置与调用

procedure TForm1.btnExportMailClick(Sender: TObject);
var ExportOption :IGRExportOption;
beginExportOption := GridppReport1.PrepareExport(GetExportType());//指定导出后发送EMail并设定发送EMail的参数ExportOption.MailExportFile := true;ExportOption.MailTo := 'name@domain.com';ExportOption.MailSubject := '报表导出并发送Email';ExportOption.MailText := '报表导出并发送Email的相关说明...';//导出后不打开文件查看GridppReport1.Export(FALSE);//最后一定要记得调用 UnprepareExport 释放导出过程中占据的资源GridppReport1.UnprepareExport();
end;

七、GridppReport默认导出文件的对话框

锐浪报表 Grid++Report 导出其它格式文件相关推荐

锐浪报表 Grid++Report HTML格式文本，win10下划线变删除线
锐浪报表 Grid++Report HTML格式文本,在win10下划线变删除线锐浪报表 Grid++Report 打印合同,一真使用HTML格式文本,已经好几年了.今天一台华为win10手提电 ...
锐浪报表 Grid++Report 免注册DLL C/S报表开发（一）
Grid++Report报表,传统的发送方式,除了发布程序以外外,还要为客户注册DLL.由于,多数客户已经使用Win10,Win10在注册Dll时,对权限要求比较严,客户自己注册比较困难,使得软件发布 ...
.NET 程序下锐浪报表 (Grid++ Report) 的绿色发布指南
在锐浪报表官方为 CSharp 编写的开发文档:"在C#与VB.NET中开始使用说明.txt" 中,关于发布项目是这么描述的: ★发布你的项目,用VS.NET制作安装程序: 1.先 ...
锐浪报表(Grid++Report)实现动态图片链接
使用锐浪报表配置打印模板的时候,需要链接到网络图片,拖出图片控件. 之后在初始化加载脚本里面填上下面的代码 var paraImgPath = Report.ParameterByName(" ...
横向合计代码锐浪报表_锐浪报表/Grid++Report/V5.8/6.0非常好注册正式版
可选:C/S或B/S一个简介: Grid++Report 是一款高性能高效率的报表开发工具,既可开发桌面软件的报表与打印系统,也可开发WEB(B/S)软件的报表与打印系统.提供一个具有超强数据展现功 ...
锐浪报表 Grid++Report 部件框 (长文字的) 跨页断句
"跨页断句"实现长篇幅文字跨页显示,满足参数设置: 1.必须将部件框的"可伸展"属性设为"是". 2.部件框框所在的报表节的"可伸 ...
锐浪html5,Grid Report
Grid++Report是一款功能强大的报表设计器,采用VC+COM+ATL+WTL技术,包含报表引擎对象.报表查询显示器.报表打印查看器.报表设计器四大功能组件,可以制作和打印各种复杂的表格,为从事 ...
锐浪报表C#_web
前言: 维护项目需要用锐浪报表: 问:使用锐浪(Grid++Report )之前的要做什么? 答: 看清楚版本是Grid++Report 4.5,Grid++Report5.6 ,Grid++Repo ...
火山PC锐浪报表使用教程4（Grid++Report）
前言: 太久没用锐浪了,如有讲的不到位的地方,请多多包含文章里讲的太详细会比较繁琐,因此会漏掉一些细节接续上几课代码,继续解锁新知识第一课:点击本链接第二课:点击本链接第三课:点击本链接一 ...

锐浪报表 Grid++Report 导出其它格式文件

锐浪报表 Grid++Report 导出其它格式文件相关推荐

最新文章

热门文章