Discussion :

[LandGreen]

Salut tout le monde,

Je rencontre un souci avec Quickreport sur Delphi 7 concernant l'impression du ticket. Ce ticket contient un grand nombre de produits et je souhaite ne plus afficher l'entête du ticket sur la deuxième page (voir en pièce jointe).

[Andnotor]

Plutôt revoir la taille de la page, autant au niveau report qu'imprimante. La série Epson TM par exemple accepte jusqu'à 3m de ticket.

[anapurna]

Salut

mettre le printband a false selon les condition voulu

c'est a dire que tu prend un boolean au premier passage il est a true
au second il sera a false et une fois le pieds de page imprimé il redeviens a true

Cordialement

[LandGreen]

Salut

mettre le printband a false selon les condition voulu

c'est a dire que tu prend un boolean au premier passage il est a true
au second il sera a false et une fois le pieds de page imprimé il redeviens a true

Cordialement

avez vous un bout de code ? ou un exemple svp

[SergioMaster]

Quel est le type de la bande ? EN fait il aurait fallu que cette bande soit un QRGroup sur les lignes et pas un QRHeader (désolé si je ne me souviens plus exactement des noms, cela fait longtemps que je n'ai pas utilisé quickrep).
P.S. d'ailleurs le QRHeaderColumn aussi devrait être dans le groupe

D'ailleurs il y a un forum plus spécialisé https://www.developpez.net/forums/f1...s/quickreport/

je dessinerai quelque chose comme ça
ENTETE (bienvenue) Header premiere page
DEBUT GROUPE (pour "entete" et intitulé colonnes)
LIGNES
TOTAUX (summary bas de page)

[anapurna]

Salut

Voici un petit résumé de comment faire

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Interface 
  TFacClient = class(TForm)
    FactClient : TDataset;
    ... // description des champs
    QRFactClient : TQuickRep;
    RbPageHeaderFact  : TQRBand;
    RbGroupFooterFact : TQRBand;
    ...
    procedure FormCreate(Sender: TObject);
    procedure RbPageHeaderFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
    procedure RbGroupFooterFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
  Private  
    BoolFirstPrint : Boolean;
  End;
Implementation 
 
procedure TFacClient.FormCreate(Sender: TObject);
begin
  BoolFirstPrint := True;
end;
 
procedure TFacClient.RbPageHeaderFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
begin
   // ici c'est l'entete de ta facture 
  PrintBand := BoolFirstPrint;
  BoolFirstPrint := False; 
end;
 
 
procedure TFacClient.RbGroupFooterFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
begin
  BoolFirstPrint := True;
  // ici c'est le pied de page (les totaux)
end;
 
End.

[LandGreen]

Merci beaucoup pour votre aide jusqu'à présent !
Cependant, j'ai remarqué une zone (en rouge) dans mon ticket (en attaché) utilisateur et j'aimerais m'en débarrasser.
Auriez-vous des suggestions sur la façon de le faire ? Toute aide serait grandement appréciée !