又来：Too many actual parameters

Question

在这里出错：    frreport1.PrepareReport;
    frReport1.PrintPreparedReport('', 1, True, frAll);
其中：procedure TfrReport.PrintPreparedReport(PageNumbers: String; Copies: Integer);
var
  s: String;
begin
  CurReport := Self;
  MasterReport := Self;
  s := LoadStr(SReportPreparing);
  Terminated := False;
  FPageNumbers := PageNumbers;
  FCopies := Copies;
  if not Assigned(FOnProgress) and FShowProgress then
    with frProgressForm do
    begin
      if Title = '' then
        Caption := s else
        Caption := s + ' - ' + Title;
      FirstCaption := LoadStr(SPagePrinting);
      Label1.Caption := FirstCaption;
      OnBeforeModal := PrintBeforeModal;
      Show_Modal(Self);
    end
  else
    PrintBeforeModal(nil);
  Terminated := False;
end;

Answer 1

环境：windows 2003 sp2 + [ delphi 7 + FreeReport v2.33 ]

Answer 2

PrintPreparedReport(PageNumbers: String; Copies: Integer);
函数的愿形 只有两个参数
而你在调用的时候 却给了四个参数
frReport1.PrintPreparedReport('', 1, True, frAll);
你改为
frReport1.PrintPreparedReport('', 1);试一下