Tfrxmasterdata разные результаты при Печати и Предпросмотре отчета

Комментарии

• gpi

  June 2009 отредактировано 05:51

  PrepareReport перед Print выполняете?
• shedd

  June 2009 отредактировано 05:51

  gpi написал: »

  PrepareReport перед Print выполняете?

  
  Ну да. Сначала PrepareReport, потом в зависимости от RadioButton'а ShowReport или Print. В первом случае все нормально, во втором что-то непонятное.
• shedd

  June 2009 отредактировано 05:51

  Немного изменил:

  procedure print;
  begin
    o_registr.First;
    frxProfRegistr.RangeEndCount  := O_Registr.RecordCount;
    if RbPrint.Checked then
     begin    
      frxRep.PrepareReport;
      frxRep.Print;
     end
    else
     frxRep.ShowReport;
  end;
  
  procedure TDM_Report.frxProfRegistrGetValue(const VarName: String;
    var Value: Variant);
  begin
    with O_Registr do
      begin
        if CompareText(VarName, 'name') = 0 then
          Value := FieldByName('usl').AsString
        else
        if CompareText(VarName, 'kab') = 0 then
          Value := FieldByName('kabs').AsString
        else
        if CompareText(VarName, 'fio') = 0 then
          Value := 'Вася';
      end;
  
  procedure TDM_Report.frxProfRegistrNext(Sender: TObject);
  begin
    ARMForms[ActiveARM].FrmProfOsmotr.O_Registr.Next;
  end;
  
  end;
  

  
  И всё, вроде бы, норм.. Странно это..