Impression de plusieurs .PDF selon un ordre précis

Bonjour,

Je cherche à imprimer plusieurs fichiers .PDF contenu dans un répertoire selon un ordre bien précis et pas nécessairement dans l'ordre qu'ils sont classés dans le répertoire.

J'arrive facilement à les reclasser selon mes besoins et j'utilise ShellExecute avec le verbe "print" pour lancer l'impression à l'aide d'une boucle.

Malheureusement, si j'envoie le tout trop rapidement, la gestion interne de Adobe fait en sorte que les fichiers s'impriment, tous correctement, mais dans une séquence différente de la mienne.

J'ai essayer le timer et un delai de 5 secondes, ça fonctionne mais si un fichier demande plus de 5 secondes à s'imprimer, les fichiers suivants s'impriment dans un ordre inconnu.

J'aimerais être en mesure de savoir qu'un fichier a bel et bien été envoyé à l'imprimante avant de demander une nouvelle impression à Adobe.

Merci.

Bonjour
Tu as une alternative au shellexecute : la fonction WaitForSingleObject qui te permet de lancer un process et d'attendre que il se termine avant de passer à autre chose.
A titre d'exemple,voici ce que je fais dans une de mes classes utilitaires :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

///Exécute un fichier et attend sa fermeture class function TSystemTool.ExecuteAndWait(CommandLine: string; MilliSeconds_TimeOut: Cardinal = INFINITE): Cardinal; var StartInfo: TStartupInfo; ProcInfo: TProcessInformation; CreateOK: Boolean; ACommandLine: PChar;   begin Result := WAIT_FAILED; FillChar(StartInfo, SizeOf(TStartupInfo), #0); FillChar(ProcInfo, SizeOf(TProcessInformation), #0); StartInfo.cb := SizeOf(TStartupInfo);   ACommandLine := Pchar(CommandLine); CreateOK := CreateProcess(nil, ACommandLine, nil, nil, False, CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo);   if CreateOK then Result := WaitForSingleObject(ProcInfo.hProcess, MilliSeconds_TimeOut); end;

---

J'espère que ça répond à ta question.

Merci pour ta réponse. Effectivement, ça pourrait marcher. Mais comment lancer un exécutable et le fichier associé à imprimer. Par exemple, si je veux imprimer le fichier "a.pdf", à quoi pourrait ressembler le PChar ACommandeLine? À "AcroRd32.exe print a.pdf"? ou à quelque chose comme ça?

Dans un autre ordre d'idée. Lorsqu'une impression est envoyée à l'imprimante, l'icone de l'imprimante apparait dans la zone de notification, en bas à droite. Est-ce qu'on peut tester le message qui accompagne l'icone?:?

J'ai essayer ça

Code:

---

c:\emplacement_de_acrobat_reader\AcroRD32.exe /t mon_fichier_a_imprimer.pdf

---

En ligne de commande, ça marche pas mal mais malheureusement j'ai pas le temps de tester dans un soft. Fais moi savoir ce que ça donne.
Sinon, je suis tombé sur ça : http://www.synergeek.fr/2009/03/impr...e-de-commande/ qui parle d'outils (ghostcript et gsview) pour automatiser l'impression des pdf.
@++

Merci Samaury,
Ta ligne de commande fonctionne dans un programme.:ccool:
Mais je reste avec le même problème.:cry:
Si j'exécute le programme avec un point d'arrêt et que je vérifie si chaque fichier est envoyé dans le bon ordre, ça fonctionne. Le programme Adobe a le temps de transmettre le fichier à l'imprimante avant que je lui demande le suivant.
Si j'enlève le point d'arrêt, les impressions sont demandés trop rapidement et Adobe se met à les gérer selon un ordre qui m'est inconnu.
C'est pourquoi j'aimerais lire dans la barre de notification, ou ailleurs, le nom qui a été envoyé à l'imprimante et m'en servir.

Merci pour ton aide.

A mon avis tu va devoir détecter la fin des travaux d'impression avant de lancer les impression suivantes. Cette discussion pourrait t'aider http://www.developpez.net/forums/d86...ur-impression/

Autre alternative mais j'ai peux d'espoirs que ça fonctionne teste la propriété printing de l'objet/fonction printer déclarée dans l'unité Printers
@++

Bonjour,

J'ai lu la discussion mais visiblement je ne la comprends pas très bien.

J'ai créé un petit programme qui a trois fichiers PDF à imprimer.
Je lance l'impression avec ShellExecute et j'utilise le WM_SpoolerStatus décrit dans la réponse de lapec_and_cie le 06/01/2006. J'utilise un évènement Timer pour le tester à toutes les secondes.

voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

procedure TForm1.FormCreate(Sender: TObject); begin sg1.Cells[0,1] := 'B1.PDF'; sg1.Cells[0,2] := 'B2.PDF'; sg1.Cells[0,3] := 'B10.PDF'; Timer1.Enabled := true; i := 1; Label3.Caption := SG1.Cells[0,i]; Termine := false; StrPCopy(Fichier,SG1.Cells[0,i]); ShellExecute(0,'print',Fichier, Nil, Nil, SW_SHOW); end;   procedure TForm1.Timer1Timer(Sender: TObject); var a : TWMSPOOLERSTATUS; begin WM_SpoolerStatus(a); if termine then begin inc(i); Label3.Caption := SG1.Cells[0,i]; StrPCopy(Fichier,SG1.Cells[0,i]); ShellExecute(0,'print',Fichier, Nil, Nil, SW_SHOW); Termine := false; end; if i > SG1.RowCount - 1 then Timer1.enabled := false; end;   procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS); begin Label2.Caption := IntToStr( msg.JobStatus); if msg.JobStatus = 0 then begin termine := true; end; msg.Result := 0; Label4.Caption := IntToStr(msg.Result);   end;

---

Avec les Label j'essais de suivre le programme mais il n'y a que le premier PDF qui s'imprime. Après ça le programme tourne en rond.

Il semble que la ligne

Code:

---

if msg.JobStatus = 0

---

ne soit jamais vrai.

Je ne sais plus quoi faire.

Peut-être une autre piste?

Comment peut-on aller lire l'information contenu dans la notification de l'imprimante lors de l'envoie d'un document? (Voir l'image incluse ci bas)

Merci pour votre aide.

Jocelyn

as-tu testé la fonction ExecuteAndWait donnée plus haut ?

Citation:

---

Envoyé par Paul TOTH

as-tu testé la fonction ExecuteAndWait donnée plus haut ?

---

1 - Paul Toth:Oui si j'ai bien compris ce post.
2 - Joch1er : J'ai l'impression que ton code, c'est un peu le serpent qui se mord la queue : Tu appelles la procedure "WM_SpoolerStatus(...)" en lui passant un paramètre qui n'est jamais remplis, ensuite tu testes les propriétés de ton paramètre...Je pense que il te manque un appel pour remplir ton paramètre.
3 - A mon avis il va te falloir utiliser les api windows pour regler ton souci. Ces liens pourraient te donner une piste
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx
http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx
@++

Merci pour l'info.
Ça me semble prometteur mais je vois que je dois utiliser des HANDLE.
Je vais dans les tutorials pour voir c'est quoi et comment les utiliser.
Encore une fois merci.

Bonjour,

Et si tu lançais l'impression avec CreateProcess plutôt que ShellExecute ?

Bonjour Caribensila,
Oui j'ai testé le CreateProcess sans succes. Le problème, si je comprends bien n'est pas la création des impressions mais la gestion dans le spooler. L'ordre d'arrivée n'est pas nécessairement l'ordre de sortie. C'est pourquoi je veux connaitre la situation d'une job dans le spooler avant d'en envoyer une autre. Pour se faire, j'ai suivi les liens de samaury (Merci samaury!) et les procédures FindFirstPrinterChangeNotification et FindNextPrinterChangeNotification. Avec la présentation 71 de Nono40 sur ce site(merci aussi Nono40), je peux voir les mouvements dans le gestionnaire d'impression de l'imprimante utilisée. Les messages sont toutefois d'ordre général:
"A print job was sent to the printer"
"A printer was set"
"A job was set"
etc.
Comme l'imprimante est sur le réseau, je vois également toutes les autres impressions. Je ne peux donc tester avec ces messages généraux. Je dois connaitre le nom de la JOB et utiliser les PRINTER_NOTIFY_OPTIONS et PRINTER_NOTIFY_INFO_DATA . C'est là que je perds mon latin...

Comment aller jouer avec les pointeurs qui pointent des pointeurs de structure qui ont des unions en fonction de la valeur du type JOB_NOTIFY_TYPE ou PRINTER_NOTIFY_TYPE!!!!!!!:arf:
Comme je ne suis pas familié avec tous ces concepts, vous pourriez ajouter les lignes à la présentation 71 de Nono40.

Merci à tous!

Jocelyn