Discussion :

[messahel]

comment determiner l'imprimante selectionnee a partir du composant PrintDialog? j'ai trouver la methode Copie qui determine le nombre des copies a imprime mais quand je change l'imprimante, il ne le prend pas en consideration?? il prend l'imprimante par defaut.
Merci pour vos aides.

[SergioMaster]

comment determiner l'imprimante selectionnee a partir du composant PrintDialog?

Dans la listes des uses ajouter Printers
l'imprimante sélectionnée est la valeur Printer.PrinterIndex;

exemple avec quickreport

Code :

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

1
2
3
4
5
6
if PrintDialog1.Execute then
 begin
   Imprimante.Caption:=Printer.Printers[Printer.PrinterIndex];
   QuickRep1.PrinterSettings.PrinterIndex:=Printer.PrinterIndex;
   QuickRep1.PrinterSettings.Copies:=Printer.Copies;
 end;

[edam]

ou

Code :

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

1
2
3
4
5
6
7
 
uses Printers;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
     ShowMessage(Printer.Printers.Text);
end;

[messahel]

c'est bon maintenant pour la selection de l'imprimante choisie, mais le probleme c'est que la commande QuickRep.Print ne prend pas en consideration le nombre des copies, alors j'etais oblige de mettre QuickRep.Print dans une boucle de 0 jusqu'a QuickRep.PrinterSettings.Copies

[SergioMaster]

si tu utilises le code que je t'ai fourni , cela doit pourtant fonctionner (je l'utilise depuis des années ou alors mes utilisateurs ne me l'on jamais dit , je doute )

[messahel]

mais dans le code que tu m'as fourni, je n'ai pas compris le mot Imprimante signifie quoi, je le declare comme quoi ? en plus ton code tout seul ne lance pas l'impression ?