Не печатается отчет
Ручной отчет без забора данных из БД. Используется frReport1GetValue и frReport1ManualBuild. В окне предварительного просмотра страничка выглядит чюдесно, если сохранять в микрософт имидж райтер - тоже ништяк, если выводишь на принтер - начинаются глюки. Выкидывается ошибка с сообщением List index out of bounds (0).
Комментарии
procedure TForm1.Button1Click(Sender: TObject); begin
Form1.frReport1.ShowReport;
end;
procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'Nom' then ParValue := IntToStr(Schet+1);
if ParName = 'BSO' then ParValue := Memo1.Lines.Strings[Schet];
end;
procedure TForm1.frReport1ManualBuild(Page: TfrPage);
var i: integer;
begin
Page.ShowBandByType(btReportTitle);
For i := 1 to Memo1.Lines.Count do
begin
Schet := i-1;
Page.ShowBandByName('Band1');
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.frReport1.LoadFromFile('act4.frf');
end;
Не работает по-прежнему. Что делать, где рыть?
Есть ли другой способ печатать многострочную страничку, кроме как использовать события frReport1GetValue и frReport1ManualBuild???
Хотя это еще более странно - все программы печатают все на ура, в том числе 2, использующие fast report.....
Что делать - не знаю.....