Dividing pages within report

  • Thread starter Thread starter Jonathan Blitz
  • Start date Start date
J

Jonathan Blitz

I have a report which details commissions to be paid out to customers.
Each customer can get a report with any number of pages since the report
contains all the details of the tranactions for which the customer has
received commission.
I have the report set up so that the customer id/name is the top level group
and also starts a new page when the value changes.
I also have the customer id/name at the top of every page.

So far, all ok.

However, I want to add a divider page between each customer. This should be
a whole page with the customer id/name
How do I do this so that it won't repeat for each page of the cutomer?
Also, I don't want the customer id/name that is at the top of each page to
appear at the top of the dividing page.

How do I do this?
I assume it must be some combination of Page and Section headers but
couldn't get it to work.


--
Jonathan Blitz
AnyKey Limited
Israel

"When things seem bad
Don't worry and shout
Just count up the times
Things have worked themselves out."
 
Jonathan

I'm probably missing something. ?You want a blank sheet of paper between
each customer?

While there may be a technical solution, how about just sticking a blank
page in after printing? You could even use a different color paper to help
distinguish the boundaries...

Good luck

Jeff Boyce
<Access MVP>
 
What I need is that when printing it should produce an extra page between
each cutomer that has only the cutomer id/name on it. The data for the
customer should start on the next page.
The idea is to make it easier to separate the pages into the customers.

--
Jonathan Blitz
AnyKey Limited
Israel

"When things seem bad
Don't worry and shout
Just count up the times
Things have worked themselves out."
 
Hi Jonathan,

How about inserting a page breaker control in the Group header section?
This way, the header information will occupy the whole page and the detail
information starts from the next page.

Please feel free to let me know if the above information helps or you need
further assistance.



Sincerely,

Alick Ye, MCSD
Product Support Services
Microsoft Corporation
Get Secure! - <www.microsoft.com/security>

This posting is provided "AS IS" with no warranties, and confers no rights.


--------------------
| From: "Jonathan Blitz" <[email protected]>
| References: <[email protected]> <uFgcSaJmDHA.1084
| X-Tomcat-NG: microsoft.public.access.reports
|
| What I need is that when printing it should produce an extra page between
| each cutomer that has only the cutomer id/name on it. The data for the
| customer should start on the next page.
| The idea is to make it easier to separate the pages into the customers.
|
| --
| Jonathan Blitz
| AnyKey Limited
| Israel
|
| "When things seem bad
| Don't worry and shout
| Just count up the times
| Things have worked themselves out."
| | > Jonathan
| >
| > I'm probably missing something. ?You want a blank sheet of paper
between
| > each customer?
| >
| > While there may be a technical solution, how about just sticking a blank
| > page in after printing? You could even use a different color paper to
| help
| > distinguish the boundaries...
| >
| > Good luck
| >
| > Jeff Boyce
| > <Access MVP>
| >
|
|
|
 
Jonathan

I misunderstood. I thought your original post said, in the last sentence of
the next to last paragraph, that you did NOT want the customer name/id at
the top of the blank page...

Jeff Boyce
<Access MVP>
 
Great.

Got it working.

Set the group header as a full page (page break before and after).

I then added some VBA code to hide the page header when displaying the group
header.


Dim PgNameCurrent As Variant, PgNamePrevious As Variant
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
PgNameCurrent = Me.MyGroupItem
If PgNameCurrent = PgNamePrevious Then
Me.PageHeaderSection.Visible = True
Else
Me.PageHeaderSection.Visible = False
PgNameCurrent = PgNamePrevious
End If
End Sub


--
Jonathan Blitz
AnyKey Limited
Israel

"When things seem bad
Don't worry and shout
Just count up the times
Things have worked themselves out."
 
Hi Jonathan,

Great! And thank you for sharing the working code with us. : -)



Sincerely,

Alick Ye, MCSD
Product Support Services
Microsoft Corporation
Get Secure! - <www.microsoft.com/security>

This posting is provided "AS IS" with no warranties, and confers no rights.




--------------------
| From: "Jonathan Blitz" <[email protected]>
| References: <[email protected]> <uFgcSaJmDHA.1084
|
| Great.
|
| Got it working.
|
| Set the group header as a full page (page break before and after).
|
| I then added some VBA code to hide the page header when displaying the
group
| header.
|
|
| Dim PgNameCurrent As Variant, PgNamePrevious As Variant
| Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
| Integer)
| PgNameCurrent = Me.MyGroupItem
| If PgNameCurrent = PgNamePrevious Then
| Me.PageHeaderSection.Visible = True
| Else
| Me.PageHeaderSection.Visible = False
| PgNameCurrent = PgNamePrevious
| End If
| End Sub
|
|
| --
| Jonathan Blitz
| AnyKey Limited
| Israel
|
| "When things seem bad
| Don't worry and shout
| Just count up the times
| Things have worked themselves out."
| | > Hi Jonathan,
| >
| > How about inserting a page breaker control in the Group header section?
| > This way, the header information will occupy the whole page and the
detail
| > information starts from the next page.
| >
| > Please feel free to let me know if the above information helps or you
need
| > further assistance.
| >
| >
| >
| > Sincerely,
| >
| > Alick Ye, MCSD
| > Product Support Services
| > Microsoft Corporation
| > Get Secure! - <www.microsoft.com/security>
| >
| > This posting is provided "AS IS" with no warranties, and confers no
| rights.
| >
| >
| > --------------------
| > | From: "Jonathan Blitz" <[email protected]>
| > | References: <[email protected]> <uFgcSaJmDHA.1084
| > | X-Tomcat-NG: microsoft.public.access.reports
| > |
| > | What I need is that when printing it should produce an extra page
| between
| > | each cutomer that has only the cutomer id/name on it. The data for the
| > | customer should start on the next page.
| > | The idea is to make it easier to separate the pages into the
customers.
| > |
| > | --
| > | Jonathan Blitz
| > | AnyKey Limited
| > | Israel
| > |
| > | "When things seem bad
| > | Don't worry and shout
| > | Just count up the times
| > | Things have worked themselves out."
| message
| > | | > | > Jonathan
| > | >
| > | > I'm probably missing something. ?You want a blank sheet of paper
| > between
| > | > each customer?
| > | >
| > | > While there may be a technical solution, how about just sticking a
| blank
| > | > page in after printing? You could even use a different color paper
to
| > | help
| > | > distinguish the boundaries...
| > | >
| > | > Good luck
| > | >
| > | > Jeff Boyce
| > | > <Access MVP>
| > | >
| > |
| > |
| > |
| >
|
|
|
 
Small correction:

Dim PgNameCurrent As Variant, PgNamePrevious As Variant
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As
Integer)
PgNameCurrent = Me.MyGroupItem
If PgNameCurrent = PgNamePrevious Then
Me.PageHeaderSection.Visible = True
Else
Me.PageHeaderSection.Visible = False
PgNamePrevious = PgNameCurrent
End If
End Sub

--
Jonathan Blitz
AnyKey Limited
Israel

"When things seem bad
Don't worry and shout
Just count up the times
Things have worked themselves out."
 
Back
Top