[student_po]

Как то так

Код:

if SaveDialog1.Execute then
 begin
  RvProject1.SelectReport('Report1', false);
  RvSystem1.DoNativeOutput := False;
  RvSystem1.DefaultDest := rdFile;
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.RenderObject := RvRenderText1;
  RvSystem1.OutputFileName := SaveDialog1.FileName;
  RvProject1.Execute;
 end;

Поправьте если что не так, или лучше можно сделать