Delphi 7 :: Rave Report - Several Reports Print in ONE spool JOB

procedure TfrmMain.rvSystemPrint(Sender: TObject);
var
  X :Integer;
begin
  For X := 0 to slStillagePrintList.Count - 1 do
  begin
    Try
      //Print the stillage labels if AutoPrintSL is flagged on
      qStillages.SQL.Text := 'SELECT S.BarCode, S.POrderNumber, S.Sequence, S.TheirDateTime, S.ItemNumber, S.ItemDescription, '+
        'S.PartTypeNumber, P.StillageQty, P.PrintBOMSL ' +
        'FROM tblStillages S LEFT OUTER JOIN tblPartTypes P ON S.PartTypeNumber = P.PartTypeNumber '+
        'WHERE (BarCode = :BarCode) AND (S.SLPrinted = 0) AND (P.AutoPrintSL = 1) '+
        'ORDER BY TheirDateTime, Sequence';
      qStillages.Parameters.ParamByName('BarCode').Value := Trim(slStillagePrintList.Strings[X]);
      qStillages.Open; qStillages.Last; qStillages.First;
      If not qStillages.IsEmpty then
      begin
        qStillageBoms.Open;
        
        rvSystem.DefaultDest := rdPrinter;
        rvSystem.SystemSetups := rvSystem.SystemSetups - [ssAllowSetup];
 
        rvProject.Open;
        rvProject.SelectReport('repStillageLabel', False);
        rvProject.SetParam('Date', DateToStr(Date));
        rvProject.SetParam('Time', TimeToStr(Time));
        rvProject.SetParam('PartType', qStillages.FieldByName('PartTypeNumber').AsString);
        rvProject.SetParam('StillageQty', qStillages.FieldByName('StillageQty').AsString);
        rvProject.SetParam('BarCode', qStillages.FieldByName('BarCode').AsString);
        rvProject.Execute;
 
        //Mark this SL as printed.
        qUpdate.SQL.Text := 'UPDATE tblStillages SET SLPrinted = 1 WHERE BarCode = :BarCode';
        qUpdate.Parameters.ParamByName('BarCode').Value := slStillagePrintList.Strings[X];
        qUpdate.ExecSQL;
 
        WriteToLog(logAttention, 'Stillage Label Printed: ' + slStillagePrintList.Strings[X]);
 
        If X <> slStillagePrintList.Count - 1 then TBaseReport(Sender).NewPage;
      end;
      lsbPrinter.Selected[X] := True;
    Except
      On E:Exception do
      begin
        WriteToLog(logError, E.Message);
      end;
    end;
  end;
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49: