用RvSystem在代码中控制;
RvSystem.BaseReport.SectionBottom := 11.1;
RvSystem.BaseReport.SectionRight := 7.5;
RvSystem.BaseReport.FontName := '宋体';
RvSystem.BaseReport.FontSize := 9;
RvSystem.BaseReport.FontColor := clBlue;
RvSystem.BaseReport.PrintFooter('打印人:' + UserName + ' 打印时间:' +
FormatDateTime('YY/MM/DD HH:NN', Now), pjRight);
RvSystem.BaseReport.SectionBottom := 11.5;
RvSystem.BaseReport.FontName := '宋体';
RvSystem.BaseReport.FontSize := 9;
RvSystem.BaseReport.FontColor := clBlack;
RvSystem.BaseReport.PrintFooter('第' + IntToStr(RvSystem.BaseReport.CurrentPage) + '页', pjCenter);
或者可以在事件编写代码。