procedure TfBaseForm.PrepareResults(aRichEdit: TcxCustomRichEdit);
begin
  with aRichEdit do
  begin
    Clear;
    Paragraph2.TabCount := 3;
    Paragraph2.Tab[0] := c_PTab0; Paragraph2.TabAlignment[0] := pftaDecimal; Paragraph2.TabLeader[0] := pftlDotted;
    Paragraph2.Tab[1] := c_PTab1; Paragraph2.TabAlignment[1] := pftaDecimal; Paragraph2.TabLeader[1] := pftlNone;
    Paragraph2.Tab[2] := c_PTab2; Paragraph2.TabAlignment[2] := pftaLeft; Paragraph2.TabLeader[2] := pftlNone;
    SelStart := 0;
    SelAttributes.Style := [];
  end;
end;

procedure TfBaseForm.PrintEx(aPLink: TBasedxReportLink);
begin
  aPLink.PDFExportOptions.Author := c_Actual_User;
  aPLink.PDFExportOptions.Creator := c_ProgName_Short;
  aPLink.PDFExportOptions.Subject := c_Prefix_PDFSubject + c_CalcTitle[FCalcID];
  aPLink.PDFExportOptions.Title := c_Print_Title;
  aPLink.PDFExportOptions.DefaultFileName := c_CalcTitle[FCalcID];
  aPLink.PDFExportOptions.DefaultFileNameAssigned := true;
  aPLink.ReportDocument.Caption := c_CalcTitle[FCalcID];
  aPLink.ReportDocument.Creator := c_Programmer;
  aPLink.ReportFootnotes.Text := c_Haftung;
  aPLink.CurrentPrintStyle.PrinterPage.PageFooter.LeftTitle.Text := Format('Gedruckt von: %s', [c_Actual_User]);
  aPLink.Preview();
end;