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
J'ai toujours "Copies 1"
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;
Constatez-vous le même phénomène avec d'autres versions ?
[Edit] j'aurais mieux fait de chercherhttps://quality.embarcadero.com/browse/RSP-16274
comment peuvent-ils laisser trainer ça !
Partager