Не печатается отчет

Виталий

Ручной отчет без забора данных из БД. Используется 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???

-=Serg=-

Я так понимаю проблемма возникает уже после формирования отчета при выводе на печать? Какой принтер?

Виталий

Принтер - Samsung ML-1210

Виталий

Проблема, действительно, с принтером. На другом принтере вышеприведенный код печатается отлично.
Хотя это еще более странно - все программы печатают все на ура, в том числе 2, использующие fast report.....

Виталий

И все же это фигня полная. Переставил драйвер принтера на более новый - все равно отчет не идет. Если ВСЕ приложения нормально печатают, а freeReport не хочет, проблема, наверное не в принтере.
Что делать - не знаю.....

Виталий

Вывод один и он неутешительный - FreeReport - это или Г. или полное Г. .....

-=Serg=-

Попробуй использовать FastReport

Виталий

Ну, даже не знаю, стоит ли......