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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
quickrpt, Qrctrls, ExtCtrls;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
PageHeaderBand1: TQRBand;
TitleBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
QRLabel1: TQRLabel;
SummaryBand1: TQRBand;
QRSomme: TQRLabel;
procedure SummaryBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
procedure PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
procedure DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
procedure PageHeaderBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure TitleBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure TitleBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
private
{ Déclarations privées }
PrintHeader : Boolean; // Gestion de l'entête
PrintPied : Boolean; // Gestion du bas de page
Somme : Currency; // cumul page
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
begin
// initialisations , début de facture
PrintPied:=True;
PrintHeader:=True;
Somme:=0.00;
end;
procedure TForm1.TitleBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
// l'entête n'est imprimé que sur la 1°page
PrintBand:=PrintHeader;
end;
procedure TForm1.TitleBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
PrintHeader:=False;
//une fois imprimé l'entête ne sera plus visible
end;
procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
// après édition de la ligne je fais le cumul
Somme:=Somme+[MontantLigne]; // [MontantLigne]à remplacer
end;
procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
// permet l'impression du bas de page
PrintBand:=PrintPied;
// imprime le cumul en passant la valeur
QRSomme.Caption:=Format('%3.2f',[Somme]);
end;
procedure TForm1.SummaryBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
// empêche l'impression du bas de page
PrintPied:=False;
end;
end. |
Partager