в том месте, где ты задаёшь количество копий - это количество нужно для диалога. Затем реальное количество должно получится как пользователь задаёт в диалоге.

procedure THIPrinter._work_doCopies;
begin
  Copies := max(1, ToInteger(_Data)); 
  Printer.Copies := Copies;
end;