Bonjour,


J'ai un programme qui surveille l'impression sur une imprimante particulière pour prévisualiser l'impression et, sur demande, l'imprimer ou l'envoyer par fax.

Tout fonctionne parfaitement sauf que si je lance l'impression, j'obtiens un message du spouleur 'Impression en cours' qui bloque mon appli jusqu'à ce que je clique sur le bouton Ok, et là tout continue normalement.

Je me suis aperçu qu'en mettant un showmessage juste après la prévisu et donc juste avant l'impression, je n'obtenais pas ce message !!!

Je voudrai donc intercepter le message et continuer le traitement normalement.

J'ai essayé avec le code suivant mais apparemment l'interception ne se fait pas et le message s'affiche toujours.

Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TFrmClient.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
begin
  msg.Result := 0;
end;