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

[Peyotte]

Oui, exact, "se fait sur l'une ou l'autre imprimante"
désolé pour mes expplications...

Le ShellExexute avec le 'PRINT' est le seul moyen que j'ai trouvé pour imprimer un pdf.

Y a t il une autre solution ?

[Jipété]

'Soir !

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

Autant pour moi, c'est un des paramètres de ShellExecute...

Cependant, y a un truc que je pige pas :

(L'impression se fait sur l'imprimante par défaut !)

Or justement, les commandes que je t'ai passées modifient l'imprimante par défaut !
Faut peut-être rajouter un

Code :

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

SendMessage(HWND_BROADCAST, WM_LE-PARAM-QUI-VA-BIEN, 0, 0);

C'est ce que j'utilise quand je charge des polices temporairement, pour que les applis soient au courant : WM_FONTCHANGE.

Ou alors Application.ProcessMessages (j'y crois pas) ?
Si je devais faire, je chercherais du côté de SendMessage...

JP

[Laurent Dardenne]

[Peyotte]

Ca y est il y a une solution (parmi tant d'autres sans doute):

http://bdn.borland.com/article/28936

En tout cas merci à tous pour les réponses qui on fait avance la chose.