unigui+fastReport实现web打印方案

近日单位需要用到会议通知单的打印功能,故引出篇。

unigui是delphi环境下快速开发web应用的优秀工具,不再赘述,下面直接记录使用搭配使用,基本逻辑就是:

unigui实现数据录入和浏览的web页---->点击打印按钮时使用【frxPDFExport】动态将报表导出为pdf------>将pdf文件动态载入打印预览窗口(UniURLFrame)实现打印预览功能。

具体实现:

1,用unigui控件实现数据的“增改删”,如下图:

2,unigui实现预览窗口,如下图,需要引入frxReport、frxPDFExport和frxRichObject组件:

 

3,双击frxReport设计好会议通知单模板,且将文件另存到unigui发布目录的files文件夹下,文件名为”会议通知单模板.fr3“,如下图:

4,点击【打印会议通知单】按钮实现如下代码(利用frxReport打开已设计好的会议通知单模板.fr3,通过frxPDFExport将frxReport的报表导出为pdf文件):

procedure TfrmMeetingInf.btnPrintClick(Sender: TObject);
begin
    with frmMeetingInfPrint do begin
        try
            sTitle := memTitle.Lines.Text;
            sTime := edTime.Text;
            sPsn := edPsn.Text;
            sAddress := memAddress.Lines.Text;
            ShowModal(nil);
        finally
        end;
    end;
end;

 

procedure TfrmMeetingInfPrint.UniFormBeforeShow(Sender: TObject);
var
    rptFileName,url: string;
begin
    rptFileName := '会议通知单.fr3';
    frxReport1.Clear();
    try
        frxReport1.LoadFromFile(UniServerModule.FilesFolderPath+rptFileName);   //存放在files目录下面
        frxReport1.PrintOptions.ShowDialog := false;
        frxReport1.ShowProgress := false;
        frxReport1.EngineOptions.SilentMode := true;
        frxReport1.EngineOptions.EnableThreadSafe := true;
        frxReport1.EngineOptions.DestroyForms := false;
        frxReport1.EngineOptions.UseGlobalDataSetList := false;

        frxPDFExport1.Background:=true;
        frxPDFExport1.ShowProgress:=False;
        frxPDFExport1.ShowDialog:=false;
        frxPDFExport1.FileName:=UniServerModule.NewCacheFileUrl(False,'pdf','','',url,true);
        frxPDFExport1.DefaultPath := '';

        frxReport1.PreviewOptions.AllowEdit := false;
        frxReport1.PrepareReport();
        frxReport1.Export(frxPDFExport1);

        UniURLFrame1.URL := url;
    finally
    end;
end;

 

procedure TfrmMeetingInfPrint.frxReport1BeforePrint(
  Sender: TfrxReportComponent);
begin
    if (Sender is TfrxMemoView) then begin
        if ((Sender as TfrxMemoView).Name = 'memTitle') then begin
            (Sender as TfrxMemoView).Memo.Text := sTitle;
        end;
        if ((Sender as TfrxMemoView).Name = 'memPsn') then begin
            (Sender as TfrxMemoView).Memo.Text := sPsn;
        end;
        if ((Sender as TfrxMemoView).Name = 'memTime') then begin
            (Sender as TfrxMemoView).Memo.Text := sTime;
        end;
        if ((Sender as TfrxMemoView).Name = 'memAddress') then begin
            (Sender as TfrxMemoView).Memo.Text := sAddress;
        end;
    end;
end;

 

完成上述几步,就能看到成果了:

 

BTW,unigui配合Chrome浏览器效果最佳,与旧版IE的兼容性不太好。

QQ:508882988。

posted on 2019-01-19 20:11 eWong 阅读(...) 评论(...) 编辑 收藏

导航

统计