TdxStartPrintEvent = procedure(Sender: TObject; AReportLink: TBasedxReportLink; APageCount: Integer) of object;