Discussion :

[Mariness]

Bonjour,

Je suis entrain de gérer des impressions avec QuickReport et je veux faire un saut de page afin que la zone "Detail" s'affiche sur plusieurs pages (si nécessaire).
Je suis bloqué sur ce truc Comment le faire SVP!!
Merci d'avance pour votre aide.

[ShaiLeTroll]

N'est-ce pas le comportement normal d'un TQRBand Detail ?
Justement empêcher le changement automatique ne doit pas être si facile !

[Mariness]

Mais non, mon rapport contient une bande header, une bande Details et une bande footer. Et lorsque la bande détails dépasse une page, le reste de son contenu ne s'imprime pas !! Seulement une page qui s'imprime toujours

[ShaiLeTroll]

As-tu bien ces valeurs ?

Pour le TQuickRep

Code dfm :

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
 
...
    DataSet = QueryDuRapport
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = A4
    Page.Values = (
      100
      2970
      100
      2100
      100
      100
      0)
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.OutputBin = Auto
    Units = MM
    Zoom = 100

Très important la taille de la Page, c'est ce qui détermine quand il doit changer de Page !

Pour le TQRBand rbDetail

Code dfm :

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

1
2
3
4
5
6
7
8
 
        AlignToBottom = False
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          100
          1900)
        BandType = rbDetail

les TQRDBText (ou équivalent) utilise QueryDuRapport, le DataSet connecté au TQuickRep ?

Pas de SubDetail ?

[Mariness]

Bon, j'ai vérifié tout ces paramètres et dans ce rapport je n'ai ni DataSet ni TQRDBText !! Il fallait un traitement ou un calcul à faire peut être pour forcer l'impression dans une autre page si le contenu dépasse la première. Mais j'en ai aucune idée

[ShaiLeTroll]

Pas de DataSet ni de QR DB Controls ?
Il me semble que QRBand rbDetail n'est utile qu'avec un DataSet ou avec OnNeedData ???

rbDetail Imprimé une seule fois pour chaque enregistrement / ligne dans l'ensemble de données connecté.

Tu utilises OnNeedData ?
Oui, c'est donc un listing manuel, c'est rare un tel besoin !
Non, c'est donc pas un listing, juste une fiche

Si ton rapport n'est pas un listing, juste une suite de TQRLabel rempli manuellement, je t'avoue ne pas bien savoir, il me semble que l'on peut mettre plusieurs TQuickRep dans une même Form de Rapport, faudrait voir ce que cela donne
D'ailleurs pourquoi alors header et footer ?

je ne crois n'avoir jamais dépassé une page pour un rapport sans DataSet, en général, c'était des formulaire pré-rempli ou des étiquettes

Une idée bien pourrie, dans le OnPrint d'un TQRLabel, tu appelles QuickRep->NewPage().
Ce TQRLabel sera le premier de la nouvelle page
Tu peux le faire sur plusieurs TQRLabel par contre les dimensions de ton TQuickRep sont alors énormes ???

[Mariness]

Alors, je dois m'expliquer clairement j'utilise pas un DataSet mais je remplis mes champs(QRMemo) dynamiquement en se servant des listes chaînées (pour interroger la BD),et ma bande Détail a donc une longueur variable selon le cas.
C'est pour ça que je dois forcer le saut de page dans certains cas. Je pense que ça sera possible avec le Quick Report ou bien y'a-il un autre outil plus flexible !!

[ShaiLeTroll]

Un composant TQRMemo peut s'étendre verticalement pour recouvrir plusieurs pages.

As-tu mis AutoStretch à true ?

On a discuté cela hier : le retour à la ligne dans TQRLabel ?

[Mariness]

Ok, j'ai mis AutoStretch à true et j'ai placé mon QRmemo en bas de la bande Detail, l'impression se fait maintenant sur plusieurs pages mais mon QRMemo s'imprime toujours en bas de page et je voulais que ça soit directement après la bande PageHeader à partie de la 2 ème page. En plus l'impression du QRMemo est incorrecte, il s'imprime aussi dans la zone dédiée pour la marge basse BottomMargin( de 10mm) ainsi qu'il ne s'imprime pas en intégrité !!

[Mariness]

Bonjour,

J'ai enfin résolu mon problème sans avoir besoin à faire un saut de page, j'ai utilisé une bande détail dans laquelle j'ai mis mon formulaire et j'ai fais une bande child en mettant la propriété HasChild de ma bande TQRDetail à true. Et dans cette bande TQRChildBand j'ai mis mon TQRMemo et j'ai mis ses deux paramètres AutoStretch et WordWrap à true. Et l'impression se fait donc sur plusieurs pages selon la taille de mon Memo.