Оптимизация печати в FastReports: генерация отдельных задач для каждой страницы или метки

Delphi , Базы данных , Отчеты

Если вы используете FastReports для генерации меток, но боитесь потерять весь прогресс при возникновении проблемы во время печати 1600 разных меток (страниц), то вам может потребоваться генерировать отдельную печатную задачу для каждой страницы. В этой статье мы рассмотрим, как это можно сделать.

Подход к решению проблемы

Чтобы генерировать отдельную печатную задачу для каждой страницы, вам нужно убрать MasterData вашего отчета. Это предотвратит автоматическую прокрутку через каждую запись вашего набора данных, и отчет будет показывать только активную запись. Затем вы можете кодировать цикл для набора данных, подготавливать и отправлять отчет на печать при каждой записи (метке), чтобы отправлять разную печатную задачу с одной страницей каждый раз. Таким образом, если во время печати возникнет проблема, вы не потеряете весь прогресс.

Пример кода на Object Pascal (Delphi)

Вот пример кода, который демонстрирует, как это можно сделать:

procedure PrintTags;
var
  I: Integer;
begin
  ClientDataSet1.First;
  for I := 0 to ClientDataSet1.RecordCount - 1 do
  begin
    frxReport.PrepareReport;
    frxReport.Print;
    ClientDataSet1.Next;
  end;
end;

В этом примере мы используем цикл для набора данных ClientDataSet1 и подготавливаем и печатаем отчет frxReport для каждой записи. После печати мы переходим к следующей записи с помощью ClientDataSet1.Next.

Альтернативный подход

Если вы предпочитаете использовать цикл WHILE вместо цикла FOR, вот пример кода, который демонстрирует, как это можно сделать:

procedure PrintTags;
begin
  ClientDataSet1.First;
  while not ClientDataSet1.Eof do
  begin
    frxReport.PrepareReport;
    frxReport.Print;
    ClientDataSet1.Next;
  end;
end;

В этом примере мы используем цикл WHILE для набора данных ClientDataSet1 и подготавливаем и печатаем отчет frxReport для каждой записи, пока не достигнем конца набора данных.

Заключение

В этой статье мы рассмотрели, как оптимизировать печать в FastReports, генерируя отдельные задачи для каждой страницы или метки. Мы рассмотрели два подхода к решению этой проблемы: использование цикла FOR и цикла WHILE. Мы также предоставили примеры кода на Object Pascal (Delphi), которые демонстрируют, как это можно сделать.

Надеемся, что эта статья поможет вам решить проблему потери всего прогресса при возникновении проблемы во время печати многих страниц или меток.

Создано по материалам из источника по ссылке.

Если вы используете FastReports для печати меток, но боитесь потерять весь прогресс при возникновении проблем, вам может понадобиться генерировать отдельную печатную задачу для каждой страницы, чтобы избежать потери всего прогресса при возникновении пробл

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::