• Registered: 2014-02-14
  • Posts: 10,294

Topic: [Отчет] Экспорт файла отчета

Скрипт позволяет сохранить сгенерированный файл отчета в указанную папку.


Пример

procedure Form1_bReport_OnAfterClick (Sender: string);
var
    sFile: string;
    sDest: string;
    sUser: string;
begin
    sUser := 'admin';
    sFile := Form1.frxPDFExport1.FileName;

    sDest := 'd:\Report\'+FormatDateTime('YYYY-MM-DD', now)+'\'+sUser+'\';
    if ForceDirectories(sDest) then
    begin
        CopyFile(sFile, sDest+'doc.pdf');
        //OpenFile(sDest+'doc.rtf'); // if you want open file 
    end;

    DeleteFile(sFile);
end;

begin
    Form1.frxPDFExport1.OpenAfterExport := False;
end.


Проект с примером:

Post's attachments

Attachment icon Report to File.zip 6.82 kb, 573 downloads since 2017-11-21 

Dmitry.