Discussion :

[Peyotte]

Bounjour,

En ce moment je developpe un logiciel (en Delphi 7) :
il consiste à distribuer des documents pdf sur différentes imprimantes (locale, réseau ou partagée).
Mon problème est que je ne parviens pas à changer l'imprimante pour l'impression.
J'utilise la fonction API : ShellExecute pour imprimer le pdf.

Merci pour votre aide.

[tourlourou]

je pense que ShellExec prend l'imprimante active ; il faudrait donc que tu sélectionnes celle que tu veux en la rendant active avnt de lancer l'impression : regarde du côté de l'unité Printers qui gère la liste...

[Peyotte]

Apparement ShellExecute prend l'imprimante par defaut de windows.

j'ai essayé avec Printer sans aucun resultat.


Donc : comment redefinir l'imprimante par defaut avec Delphi ou autre commande AP ?

[Jipété]

Yep !

Une combobox (cbb) sur une form, et

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormActivate(Sender: TObject);
begin
  cbb.Items := Printer.Printers;
  cbb.Text  := Printer.Printers[Printer.PrinterIndex];
end;
 
procedure TForm1.cbbCloseUp(Sender: TObject);
begin
  Printer.PrinterIndex := cbb.ItemIndex;
end;

Sans oublier Printers dans le Uses.

HTH,
JP

[Peyotte]

Merci pour ces reponses.
Mais je ne parviens pas à utiliser Printer.

Ca : ça fonctionne :
(L'impression se fait sur les 2 imprimantes)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  procedure TForm1.Button2Click(Sender: TObject);
     begin
       Printer.PrinterIndex := 1;
       Printer.BeginDoc;
         // contenu a imprimer
       Printer.EndDoc;
 
       Printer.PrinterIndex := 2;
       Printer.BeginDoc;
        // contenu a imprimer
       Printer.EndDoc;
     end;

Ca : ça ne fonctionne pas :
(L'impression se fait sur l'imprimante par défaut !)

Code :

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

1
2
3
4
5
6
7
8
9
 
     procedure TForm1.Button2Click(Sender: TObject);
     begin
       Printer.PrinterIndex := 1;
       shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);
 
       Printer.PrinterIndex := 2;
       shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);
end;

Voila mon probleme.

Ou s'il y a une autre facon l'imprimer un pdf avec l'unite Printers ?

[Jipété]

Yep !

Ca : ça fonctionne :
(L'impression se fait sur les 2 imprimantes)

Je suppose qu'il faut lire "se fait sur l'une ou l'autre imprimante" ?


D'autre part,

shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);

Qu'est-ce qui se cache sous ce 'PRINT' ?

JP