Discussion :

[Le_Suisse]

Bonjour,

Je suis actuellement entrain de gérer des impressions avec QuickReport + D7 et je rencontre actuellement un problème. En effet je n'arrive pas a faire un saut de page afin que la zone "Detail" s'affiche sur plusieurs pages. Mon document est actuellement composé des 3 zones basique (title, detail, footer). J'insère directement de manière visuelle et non par le biais du code, différents champs que je lie avec ma base de donnée (ceci fonctionne correctement). Le problème étant que comme rien ne se passe par le biais du code, je ne peut pas faire un "newpage" dans mon code. De plus si je mets la propriété de la zone detail "forcenewpage" à true, c'est l'ensemble de ma zone détail qui passe à la page suivante et non ce qu'il y a en trop pour une page A4. Avez-vous une solution ?

Merci d'avance pour toutes vos réponses.

[anapurna]

salut

Code :

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

  ForceNewPage := True;

dans les qrGroup

sinon tu peut faire aussi

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
...
Function 
TFrmEd.IsLostBande(BdGroupe,Bddetail,BdPageFooter : TQRCustomBand) : Boolean;
var
  PlaceRestante: double;
begin
   Result := true;
    // place restante en 1/10 mm
    PlaceRestante :=  QuickRep1.QRPrinter.PaperLength
      -QuickRep1.Page.TopMargin
      -QuickRep1.Page.BottomMargin
      -BdPageFooter.Size.Height
      -QuickRep1.CurrentY;
    // BdGroupe.Size.Length en mm * 10 = 1/10 mm
    if (BdGroupe.Size.Height) + (Bddetail.Size.Height) < PlaceRestante then
      Result := false;
end;
....
procedure TFrmEd.GroupBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if IsLostBande(sender,BdDetail,BdFooter) Then
  begin
    printBand := False;
    QuickRep1.NewPage;
  end;
end;

@+ Phil