Автоматический ежедневный экспорт отчетов в файл.

Комментарии

• DimaBr

  July 2011 отредактировано 00:28

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    frxXLSExport1.ShowDialog := false;
    frxXLSExport1.FileName := 'C:\1.xls';
    frxReport1.PrepareReport();
    frxReport1.Export(frxXLSExport1)
  end;
  
• Германн

  July 2011 отредактировано 00:28

  DimaBr написал: »

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    frxXLSExport1.ShowDialog := false;
    frxXLSExport1.FileName := 'C:\1.xls';
    frxReport1.PrepareReport();
    frxReport1.Export(frxXLSExport1)
  end;
  

  Спасибо, попробую.
• Германн

  July 2011 отредактировано 00:28

  Теперь ещё один маленький дополнительный вопрос.
  А нельзя ли как-то, откуда-то "вытянуть" те иконки, которые используются в самих компонентах экспорта в дизайн-тайме?
  Чтобы использовать для выбора "типа отчёта" в TComboBoxEx?
  Понимаю, что эти иконки (в некотором роде) KnowHow, но я ведь не корысти ради, а только для наилучшего использования FR в программе.
• gpi

  July 2011 отредактировано 00:28

  frxRes.PreviewButtonImages
• Германн

  July 2011 отредактировано 00:28

  написал: »

  Теперь ещё один маленький дополнительный вопрос.
  А нельзя ли как-то, откуда-то "вытянуть" те иконки, которые используются в самих компонентах экспорта в дизайн-тайме?
  Чтобы использовать для выбора "типа отчёта" в TComboBoxEx?
  Понимаю, что эти иконки (в некотором роде) KnowHow, но я ведь не корысти ради, а только для наилучшего использования FR в программе.

  Нашел эти иконки в dclfrxe11.bpl
• Германн

  August 2011 отредактировано 00:28

  DimaBr написал: »

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    frxXLSExport1.ShowDialog := false;
    frxXLSExport1.FileName := 'C:\1.xls';
    frxReport1.PrepareReport();
    frxReport1.Export(frxXLSExport1)
  end;
  

  Спасибо, Дмитрий. Ваш код работает.
  Но наблюдаются нежелательные артефакты его работы. Точнее работы "экспорта".
  1. Основная форма на некоторое время "замораживается".
  2. Возникают нежелательные окна с сообщениями о каких-то там стилях. (Пробовал экспорт в XLS).
  Можете ли Вы что либо добавить, или мне лучше обратится к разработчикам FR?
• gpi

  August 2011 отредактировано 00:28

  2.

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    frxXLSExport1.ShowDialog := false;
    frxXLSExport1.ShowProgress := false;
    frxXLSExport1.FileName := 'C:\1.xls';
    frxReport1.PrepareReport();
    frxReport1.Export(frxXLSExport1)
  end;