Case pPrintData.PrintState of
    frPrint:
      begin
        FRReport.PrepareReport;
        FRReport.PrintPreparedReport('', 1, True, frAll);
      end;
    frPreview:
      begin
        FRReport.ShowReport;
      end;
    frDesign:
      begin
        FRReport.DesignReport;
      end;
  else
    Exit;
  end;