'tussenpagina's' in een rapport

[Ginger]

Op mijn werk hebben ze bedacht dat een bepaald rapport (= actie-besteladvies voor al onze winkels) dat nu via onze postkamer (extern) wordt verzonden, rechtstreeks via de drukker moet worden verzonden. Helaas voor mij betekent dit een forse aanpassing in mijn rapportage.

In mijn huidige rapport plaats ik het afnemernummer in de pageheader én er vindt óók een break plaats op dit afnemernummer zodat elke nieuwe afnemer op een nieuw blad start. Hiermee kan de postkamer het juiste document in het verzamel-postbakje van elke winkel leggen.
In de nieuwe werkwijze bij de drukker is er een andere methodiek. Hij werkt niet met postvakjes maar met een vensterenveloppe. Hij wil dus vóór elk winkelspecifiek-besteladvies een A4 hebben met de adresgegevens van die winkel.

Mijn vraag is dus of het mogelijk is om een afwijkende tussenpagina in een rapport aan te maken? Ik heb helaas niets aan de optie Report-Header omdat die alléén aan de voorkant van het hele rapport wordt geplaatst en niet na elke n pagina's.

Als het wél mogelijk is, zou het super zijn. Indien niet (of gewoon sowieso) is elke 'brainwave' om me te helpen van harte welkom.

Groet, Leo

 

[hfoppen]

Leo,

zou het niet mogelijk zijn om dan een extra PageHeader te maken? En kun je daar dan niet iets mee dat je die onderdrukt op pagina 1 (wel even resetten dan per afnemernummer). 'k Werk zelf veel met Crystal reports, dus misschien ben ik iets te makkelijk in m'n denken....je kunt toch ook groepen aanmaken? Als je dan per afnemer een groep hebt, dan zou 't misschien ook nog in die groep kunnen?

 

[OctaFish]

Je kunt in een sectie of koptekst (rapport of op basis van een veld) een pagina-einde plaatsen. Daarvoor zit in de Werkset een knop Pagina-Einde. In het eerste deel zet je dan de velden voor het envelopvenster, daaronder maak je de volgende pagina op.

 

[Ginger]

Allereerst mijn hartelijke dank aan jullie beiden voor deze supersnelle reacties. Als helper van de Excel-sectie vind ik 't wel gaaf om te zien dat er dus op meer fronten op HelpMij actief wordt geholpen! :thumb::d

@hfoppen, Hmmmm... een extra page header? Ik had geen idee dat die mogelijkheid bestond. Maar morgen op mijn werk direct uitproberen.

@OctaFish, een extra pagina einde invoegen op het rapportage-grid. Lijkt me ook een schitterend idee. Ook maar 'ns uitproberen morgen...

Groet, Leo

 

[Ginger]

@OctaFish, vandaag eindelijk te tijd gevonden om met je oplossing aan de slag te gaan. En inderdaad.... Dát was de truuk! :thumb:

Ik moest d'r weliswaar nog een klein beetje code bij plaatsen om de pageheaders te verbergen (was puur cosmetisch, m'n baas vond 't wel goed zo ). Ik vond 't mooier om toch ff door te gaan.

Ik zal morgen ff het stukje code plaatsen dat ik hiervoor gebruik.

Nogmaals dank.

Groet, Leo

P.s. @hfoppen, omdat ik al resultaat boekte met de oplossing van je college helper, ben ik eerlijk gezegd niet verder gegaan met die van jou (sorry). Toch ook aan jou mijn grootste dank voor het meedenken!

 

[Ginger]

Ik groepeer mijn rapport op het Winkelnummer (afne). Dit geeft een 'header' op de groep 'afne'. In deze groep heb ik dus de pagebreak ingevoegd om een aparte 'tussen pagina' te krijgen. Om nu te voorkomen dat de standaard pageheader op dat voorblad wordt afgedrukt, verberg ik bij de opbouw van het rapport via VBA de pageheader en -footer als het winkelnummer 'verandert' ten opzichte van het vorige gebruikte winkelnummer.
Helaas is het hele programma (ja, ook gezipt of gerart) te groot om hier te plaatsen en hoop dus dat deze sumiere tekstuele uitleg voldoende is om bruikbaar te zijn voor de archieven.

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
'verberg de pageheader en -footer van de 'tussenpagina' met de NAW gegevens

    GrpNameCurrent = Me!afne
    If GrpNameCurrent = GrpNamePrevious Then
        Me.PageHeaderSection.Visible = True
        Me.PageFooterSection.Visible = True
    Else
        Me.PageHeaderSection.Visible = False
        Me.PageFooterSection.Visible = False
    End If

End Sub

Groet, Leo