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

Комментарии

• Виталий

  March 2006 отредактировано 04:32

  Сделал еще форму для опытов с минимумом элементов - форма, мемо, кнопка.
  
  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;
  
  Не работает по-прежнему. Что делать, где рыть?
• Виталий

  March 2006 отредактировано 04:32

  Ладно, спрошу иначе:
  Есть ли другой способ печатать многострочную страничку, кроме как использовать события frReport1GetValue и frReport1ManualBuild???
• -=Serg=-

  March 2006 отредактировано 04:32

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

  March 2006 отредактировано 04:32

  Принтер - Samsung ML-1210
• Виталий

  March 2006 отредактировано 04:32

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

  March 2006 отредактировано 04:32

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

  March 2006 отредактировано 04:32

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

  March 2006 отредактировано 04:32

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

  March 2006 отредактировано 04:32

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