report with select data printed more than once

  • Thread starter Thread starter jsr
  • Start date Start date
J

jsr

Folks,
I posted this following message several weeks ago and
lost the reply sent by someone on how they though this
might work. Please help.

am using access 97.
I am trying to generate a report that allows you to print
a record more than once based on the value of another
field. HOWEVER, I don't want to print all records that
way. I can't figure out what is needed to allow this. Ex-
if the value of field quantity 1 or 2 than it prints
once, if it is 3 or 4, I want to print the records twice,
if quantity is 5 or 6 , I print the record, three times-
etc.

Any ideas out there?
Thanks in advance.

jsr
 
Go to:
groups.google.com
and choose the Advanced Search.
You can search for your thread, and the answer you received.

My website is currently down (ISP is having major problems), but when it
comes back up, you will find this article helpful:
http://allenbrowne.com/ser-39.html
Since you want only half the labels, use integer division by 2 in a query to
get the desired number of records, i.e.:
HowMany: [Quantity] \ 2
 
jsr said:
I posted this following message several weeks ago and
lost the reply sent by someone on how they though this
might work. Please help.

am using access 97.
I am trying to generate a report that allows you to print
a record more than once based on the value of another
field. HOWEVER, I don't want to print all records that
way. I can't figure out what is needed to allow this. Ex-
if the value of field quantity 1 or 2 than it prints
once, if it is 3 or 4, I want to print the records twice,
if quantity is 5 or 6 , I print the record, three times-
etc.
Click to expand...

Here's my response to your question on 10/2:
---------------------------------------------------------------
You might(?) be able to add code to the detail section's
Format event procedure that causes the detail to be printed
multiple times. This is just air code so take it with
several grains of salt:

Dim lngDupCtr As Long
Sub Detail_Format( . . .
If lngDupCtr <= 0 Then
lngDupCtr = (Me.txtQuantity + 1) \ 2
Else
If lngDupCtr > 1 Then
Me.NextRecord = False
End If
lngDupCtr = lngDupCtr - 1
End If
End Sub

The reason I'm being wishy washy about it is that are some
situations where a page boundary split, CanGrow,
KeepTogether, etc. may throw the counting off.
---------------------------------------------------------------

For future reference, you can search for old posts/threads
in the Google archives at:

http://groups.google.com/advanced_group_search?hl=en&lr=&ie=UTF-8&safe=off
 
Back
Top