Discussion :

[Lung]

Je rencontre un problème avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
      PrinterSetupDialog := TPrinterSetupDialog.Create(nil);
      try
         //.Choix de l'imprimante.
         if PrinterSetupDialog.Execute then
            Result := Printer.Printers[Printer.PrinterIndex]
         else
            ShowMessage('');
      finally
         PrinterSetupDialog.Free;
      end;

- A la première exécution, la boîte de dialogue s'affiche normalement.
- A partir de la deuxième exécution, la boîte de dialogue ne s'affiche pas, et la valeur de retour est à faux. Je ne peux donc pas sélectionner l'imprimante, et l'application plante plus loin.

Une idée ?

[Aka Guymelef]

Et en utilisant un Release plutôt que le Free (enfin en supposant que TPrintSetupDialog soit bien une fiche ) ?

[Lung]

(enfin en supposant que TPrintSetupDialog soit bien une fiche ) ?

Bin non, c'est un composant non graphique qui permet d'afficher la boîte de dialogue Windows de paramétrage de l'impression.
Là je le crée en dynamique, au lieu de le poser sur une Form.

[Lung]

Bon, j'ai fait un essai avec la TPrintDialog, et elle s'affiche à chaque fois (et me permet, à priori, la même chose).

Mais, à partir du deuxième appel, même si elle me permet de faire un choix, il n'est pas pris en compte par le Printer.PrinterIndex.



Personne n'a jamais eu le problème ?
Une idée ?

[Lung]

Après de nouveaux essais, je constate que non seulement Printer.PrinterIndex ne contient pas l'imprimante que j'ai choisie, mais au lieu de garder la dernière valeur, il reprend l'index de la toute première imprimante sélectionnée au début de mon application.


J'ai du mal à comprendre le fonctionnement de Printer ...

[Aka Guymelef]

Et en faisant un Refresh (ou après ?) sur Printer ?