• Force new Sheet in report (Access 2000)

    Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Force new Sheet in report (Access 2000)

    Author
    Topic
    #395472

    I have a report which lists stuff by a number of stores which is printed double sided. I need to be able to send the pages for each store to the store in question. Each store has 9 pages, which means that the next store in sequence starts on the back of the last page in the previous store’s stuff. How do I force each new store to appear on a new sheet of paper rather than on the back of the last sheet of the previous store’s stuff? (As opposed to a new page)

    Viewing 1 reply thread
    Author
    Replies
    • #734232

      Try the following on a copy first:

      I assume the report is grouped by store. If you don’t have a group footer yet, add it (it will remain blank). Set the Force New Page for the group footer to After Section, make sure that Keep Together is set to Yes, and experiment with expanding the height of this section until a blank page appears after the 9 pages for each store.

      • #734259

        It is indeed grouped by store. Your solution is brilliantly simple and it works, however it tranpires that there are exceptions to the 9 pages per store rule which throws everything out again. I may experiment with doing something with the page number in the footer formatting event.

        I’ll update this thread with the result.

        Thanks

        • #734279

          Yup, if the number of pages per group varies, you will need some event code. It’s a good idea to experiment first; post back if you need assistance.

          • #734776

            I managed to do it by putting the follwing code on the store group footer format event:

            Dim i As Integer
            i = Page Mod 2
            If i = 0 Then
            ‘//Even number page
            StoreNameFooter.Height = 500
            Else
            ‘//Odd number page
            StoreNameFooter.Height = 8560
            End If

            Thanks for your help.

          • #734777

            I managed to do it by putting the follwing code on the store group footer format event:

            Dim i As Integer
            i = Page Mod 2
            If i = 0 Then
            ‘//Even number page
            StoreNameFooter.Height = 500
            Else
            ‘//Odd number page
            StoreNameFooter.Height = 8560
            End If

            Thanks for your help.

        • #734280

          Yup, if the number of pages per group varies, you will need some event code. It’s a good idea to experiment first; post back if you need assistance.

      • #734260

        It is indeed grouped by store. Your solution is brilliantly simple and it works, however it tranpires that there are exceptions to the 9 pages per store rule which throws everything out again. I may experiment with doing something with the page number in the footer formatting event.

        I’ll update this thread with the result.

        Thanks

    • #734233

      Try the following on a copy first:

      I assume the report is grouped by store. If you don’t have a group footer yet, add it (it will remain blank). Set the Force New Page for the group footer to After Section, make sure that Keep Together is set to Yes, and experiment with expanding the height of this section until a blank page appears after the 9 pages for each store.

    Viewing 1 reply thread
    Reply To: Force new Sheet in report (Access 2000)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information: