PrinterSetupDialog.Execute - Valeur de retour par défaut

**Lung** · 01/04/2008, 17h26

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** · 02/04/2008, 08h54

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

) ?

**Lung** · 02/04/2008, 14h18

Envoyé par Aka Guymelef

(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** · 02/04/2008, 14h22

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** · 02/04/2008, 14h59

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** · 02/04/2008, 15h03

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

**Lung** · 02/04/2008, 15h15

Envoyé par Aka Guymelef

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

Bin, je ne comprend pas le rapport avec mon problème,

mais si je fais un Printer.Reffresh; avant chaque création de la boîte de dialogue, ça se met à fonctionner normalement.

**Aka Guymelef** · 02/04/2008, 15h30

Ben citation de l'aide de Delphi sur cette méthode Refresh de l'objet TPrinter :

Appelez Refresh lorsque les polices ou les imprimantes installées sur le système actuel peuvent avoir changé.Refresh efface le cache interne des polices et imprimantes installées,afin que les propriétés Fonts et Printers soient actualisées lorsqu'elles sont lues ensuite.

**Lung** · 02/04/2008, 17h59

Envoyé par Aka Guymelef

Ben citation de l'aide de Delphi sur cette méthode Refresh de l'objet TPrinter :

Appelez Refresh lorsque les polices ou les imprimantes installées sur le système actuel peuvent avoir changé.Refresh efface le cache interne des polices et imprimantes installées,afin que les propriétés Fonts et Printers soient actualisées lorsqu'elles sont lues ensuite.

Justement. Je ne m'amuse pas à installer une nouvelle imprimante pendant l'exécution de mon application. Donc, logiquement (enfin, moi je trouve ça logique

), il ne devrait pas y avoir besoin de raffraichir la liste des imprimantes.
Il y a un truc qui m'échappe ...