Использование события OnPrintPage. Данное событие вызывается перед печатью содержимого страницы отчета. Это событие вызывается, только в случае если обработчик события OnPrint не существует для данного отчета. Для начала печати новой страниы, нужно вернуть состояние TRUE. Или, для окончания печати отчета просто выйдите из данного события с результатом FALSE. Данное событие полезно для отчетов, где страницы одинаковые. Code function TReportForm.PrintPageReport3(Sender: TObject;
var PageNum: integer):Boolean;
begun
with Sender as TBaseReport do begin
SetFont('Times New Roman',10);
Home;
SetColumns(3,0.25);
MemoBuf.PrintStart := ColumnStart;
MemoBuf.PrintEnd := ColumnEnd;
PrintMemo(MemoBuf, ColumnLinesLeft, FALSE);
ClearColumns;
Result := not MemoBuf.Empty;
end;
end; |
