Annuler une impression ??

**Ben_Le_Cool** · 07/06/2006, 17h00

Bonjour,

J'explique mon probleme: J'ai des rapports de plusieurs pages a imprimer. Si je commence l'impression puis je veux annuler, les pages envoyees au spooler seront quand meme imprimees. Y a t-il un moyen d'annuler completement cette impression (y compris les pages deja chargees dans le spooler)?
Tout conseil ou orientation sera biensur le bienvenu.
Merci.

:

:

**Droïde Système7** · 08/06/2006, 12h16

Bonjour,

J"ai le même blème de recherche, j'ai mis le code suivant , mais faut annuler presque aussitôt, sinon ça part sans s'arrêter :

Code :

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

1
2
3
4
5
 
...
Printer.Abort; // Stoppe le printage en cours...
MessageDlg('Echec impression ', mtInformation, [mbOK],0);
...

A suivre... ;-)

**Alfred12** · 08/06/2006, 13h32

Etant donné que tous les programmes dont je me sers ont le même problème, la solution ne doit pas être évidente. En générale j'arrête l'imprimante...

**Cl@udius** · 08/06/2006, 13h42

Salut,

D'accord avec Alfred12 !

Peut-être en buchant un peu ceci:
http://msdn.microsoft.com/library/de...tspol_7mgj.asp

@+

**Cl@udius** · 08/06/2006, 13h53

Re,

J'ai trouvé également cet article chez Borland:
http://community.borland.com/article...,15188,00.html

@+ Claudius

**Ben_Le_Cool** · 08/06/2006, 15h48

Merci pour vos reponses

J'ai pu minimiser les degats en modifiant le code de QuickReport. Il s'est avere qu'il y avait quelques petits bugs sur leur code.
Si ca interesse quelqu'un je donnerai plus de details

**Cl@udius** · 08/06/2006, 16h26

Salut Ben,

Un peu que ça m'interresse !

**Ben_Le_Cool** · 08/06/2006, 16h41

On sait bien que le rapport n'est envoye au spooler qu'a l'appel de la procedure EndDoc.
Sur l'unite QuickRpt.pas, a la procedure TCustomQuickRep.CreateReport on a cette partie de code:

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
 
 
      finally
        if not Cancelled then
        begin
          if not CompositeReport then
          begin
            if FinalPass then
              QRPrinter.EndDoc
            else
              QRPrinter.AbortDoc;
          end
        end else
          QRPrinter.AbortDoc;
      end;

Or j'imagine qu'il y a eu confusion a la propriete Cancelled (qui se retrouve un peu partout dans les differentes classes). Ce qui fait, que pendant l'affichage de la ProgressBar, meme si on clique sur Cancel, la propriete Cancelled est toujours a faux.
La modification apporte est simplement celle-ci:

Code :

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

1
2
3
4
5
6
 
      finally
        if not QRPrinter.Cancelled then
        .
        .
        .

Donc le rapport n'est envoye que si vraiment il n'y a eu aucune annulation pendant la progression, ce qui arrange pas mal mon code et mes chers clients