Bonjour,

Est-ce la version (10.3.3) ou autre chose, je n'arrive pas à obtenir le nombre de copies (toujours à 1), voici le test rapide

Sur une forme (FMX) un Tbouton, un Tmemo, un TPrintDialog

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PrintDialog1.MinPage := 1;
  PrintDialog1.MaxPage := 2;
  PrintDialog1.Options := [TPrintDialogOption.poPageNums];
  PrintDialog1.FromPage := 1;
  PrintDialog1.ToPage := 2;
  PrintDialog1.PrintRange := TPrintRange.prAllPages;
  PrintDialog1.Copies := 1;
  PrintDialog1.Collate:=False;
 if printdialog1.execute then
  begin
    memo1.Lines.Add('Copies '+Printdialog1.Copies.ToString);
  end;
end;
J'ai toujours "Copies 1"

Constatez-vous le même phénomène avec d'autres versions ?
[Edit] j'aurais mieux fait de chercher https://quality.embarcadero.com/browse/RSP-16274 comment peuvent-ils laisser trainer ça !