G
Guest
How do I put a running count on the top of a page
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
T
tina
a running count of *what*? pages in the report? number of detail records in
a report? number of detail records in a report group? number of groups in a
report?
a report? number of detail records in a report group? number of groups in a
report?
G
Guest
I'm sorry the question is how do I put a running count of detail records onmoustapha said:How do I put a running count on the top of a page.
the top of a report
T
tina
okay, i assume you really mean "a running count of detail records at the top
of *each page* of a report".
i couldn't figure out a way to put the count in the PageHeader section,
because the Print event runs for the PageHeader section of each page
*before* the event for the Detail section - which is where the records can
be counted. but you can put a running count of detail records in the
PageFooter section of the report by doing the following:
add an unbound textbox control to the report's PageFooter section, and name
it txtCount.
in the report's module, add a module-level variable, as
Dim lngCount As Long
add the following code to the report Detail section's Print event, as
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Not PrintCount = 2 Then
lngCount = lngCount + 1
End If
End Sub
add the following code to the report PageFooter section's Print event, as
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As
Integer)
Me!txtCount = lngCount
End Sub
hth
of *each page* of a report".
i couldn't figure out a way to put the count in the PageHeader section,
because the Print event runs for the PageHeader section of each page
*before* the event for the Detail section - which is where the records can
be counted. but you can put a running count of detail records in the
PageFooter section of the report by doing the following:
add an unbound textbox control to the report's PageFooter section, and name
it txtCount.
in the report's module, add a module-level variable, as
Dim lngCount As Long
add the following code to the report Detail section's Print event, as
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Not PrintCount = 2 Then
lngCount = lngCount + 1
End If
End Sub
add the following code to the report PageFooter section's Print event, as
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As
Integer)
Me!txtCount = lngCount
End Sub
hth
G
Guest
thanks alot.
tina said:okay, i assume you really mean "a running count of detail records at the top
of *each page* of a report".
i couldn't figure out a way to put the count in the PageHeader section,
because the Print event runs for the PageHeader section of each page
*before* the event for the Detail section - which is where the records can
be counted. but you can put a running count of detail records in the
PageFooter section of the report by doing the following:
add an unbound textbox control to the report's PageFooter section, and name
it txtCount.
in the report's module, add a module-level variable, as
Dim lngCount As Long
add the following code to the report Detail section's Print event, as
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Not PrintCount = 2 Then
lngCount = lngCount + 1
End If
End Sub
add the following code to the report PageFooter section's Print event, as
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As
Integer)
Me!txtCount = lngCount
End Sub
hth
T