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 ?

[SergioMaster]

imprimante , n'est qu'un Tlabel sur une form le caption aurait du te mettre sur la voie
(j'aime bien indiquer à l'utilisateur sur quelle imprimante il est 'raccordé')

[messahel]

mais ton code tout seul ne lance pas l'impression, qu'est ce que j'ajoute ?

[SergioMaster]

Ah , mais à ce n'est pas la même chose .
et en plus l'impression n'a rien a voir avec la sélection de l'imprimante !
En général pour une impression j'ai un menu contenant 3 ou 4 options
un peu comme ceci

Impression
Prévisualisation
---------------------
Choix Imprimante
Setup Imprimante

(sachant que le Setup Imprimante est tres peu utilisé)
j'ai ,en gros, les codes suivant pour chaque :

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
17
18
19
20
 
// Impression 
Quickrep1.Print
//Previsualisation
Quickrep1.Preview
// Choix Imprimante
if PrintDialog1.Execute then
 begin
   Imprimante.Caption:=Printer.Printers[Printer.PrinterIndex];
   QuickRep1.PrinterSettings.PrinterIndex:=Printer.PrinterIndex;
   QuickRep1.PrinterSettings.Copies:=Printer.Copies;
 end;
// Setup Imprimante
if PrinterSetupDialog1.Execute then
 begin
   Imprimante.Caption:=Printer.Printers[Printer.PrinterIndex];
   QuickRep1.PrinterSettings.PrinterIndex:=Printer.PrinterIndex;
   QuickRep1.PrinterSettings.Copies:=Printer.Copies;
   .....
 end;

[messahel]

Désolé, mais tu m'as pas compris, j'ai fais ton code de la selection de l'imprimante:

Code :

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

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

et apres j'ai fais la commande QuickRep1.Print mais elle ne prend pas en consideration le nombre des copies, a chaque fois et quelque soit le nombres des copies, je tiens qu'un seul exemplaire.

[SergioMaster]

as-tu vérifié la valeur de Printer.Copies ? en mode debug
ou
par exemple en utilisant :

Code :

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

 ShowMessage('Nombre de copies : '+inttostr(Copies))