Printersetup.Copies = 0 makes report print forever

Resches

Hi,
Not sure when or (aCopies < 1) change was made in ppPrintr.pas as below.

procedure TppPrinterSetup.SetCopies(aCopies: Integer);
begin
  if (FCopies = aCopies) {or (aCopies < 1)} then Exit;

The code in function TppPrinterDevice.CheckEndJob; will always be false as FCollatedCopies = 0;

function TppPrinterDevice.CheckEndJob;
begin

  {check whether all copies have been printed}
  Result := (FCollatedCopies = 1);

  if Result then Exit;

nardmoseley

Hi Tom,

Thanks for reporting this. I created a patch for RB 19.01 to resolve the issue. You can email support@, provide license details and request the patch.