Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Forcer le saut de page dans un rapport Quick Report
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 trucComment le faire SVP!!
Merci d'avance pour votre aide.
N'est-ce pas le comportement normal d'un TQRBand Detail ?
Justement empêcher le changement automatique ne doit pas être si facile !
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
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
As-tu bien ces valeurs ?
Pour le TQuickRep
Code dfm : Sélectionner tout - Visualiser dans une fenêtre à part
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
2
3
4
5
6
7
8AlignToBottom = 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 ?
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
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
Pas de DataSet ni de QR DB Controls ?
Il me semble que QRBand rbDetail n'est utile qu'avec un DataSet ou avec OnNeedData ???
Tu utilises OnNeedData ?rbDetail Imprimé une seule fois pour chaque enregistrement / ligne dans l'ensemble de données connecté.
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 ???
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Alors, je dois m'expliquer clairementj'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 !!
As-tu mis AutoStretch à true ?Un composant TQRMemo peut s'étendre verticalement pour recouvrir plusieurs pages.
On a discuté cela hier : le retour à la ligne dans TQRLabel ?
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
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
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.
Répondre avec citation
Partager