'Inexplicable' omission (not deletion) of records - see code at end of message

[Arne Reed]

I work at a Community College. I have been using Access for 4 years
to track the number and destinations of transcripts we mail out at
students' (and former students' requests). It has worked fine, until
very recently.

I type in the number of envelopes I wish the Database to print and it
prints out the correct number of envelopes, accordingly -- up until 2
weeks ago.

Now, there is no rhyme nor reason to the number of envelopes the
Database will print.

I created a Report to perform this task, but it appears the formatting
of the Report is to blame for the omission of some of the envelopes.

When I create a tabular report - ALL - of the records are there! But,
then, when I try to create an envelope report (and adjust margins),
there are records omitted.

Does anybody have any idea what would be wrong with my report/
formatting?

My IT department is of -NO- help to me.

Here is the code for printing the envelopes, but again, I don't think
the code is causing the problem:

*****************

Option Compare Database

Dim intPrintCounter As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If (intPrintCounter < [Number of transcripts to this institution])
Then
intPrintCounter = intPrintCounter + 1
Me.NextRecord = False
Else
intPrintCounter = 1
Me.NextRecord = True
End If

End Sub

Private Sub Report_Open(Cancel As Integer)
intPrintCounter = 1

End Sub

[Rich P]

Hi Arne,

Try this for starters: Look at the recordsource of the report - the
query/table and look at the row count in that table/query. Then run
your report without printing - just the report. Go to the end of the
report (click the End Button at the bottom of the report). The count of
records (pages) should match the count from the recordsource. If your
report only prints, then create a new report that only displays the
records (envelopes). The counts should match. If the counts match then
just print that report from the print button on the menubar. No real
need for code here.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[salad]

Arne Reed wrote:

I work at a Community College. I have been using Access for 4 years
to track the number and destinations of transcripts we mail out at
students' (and former students' requests). It has worked fine, until
very recently.

I type in the number of envelopes I wish the Database to print and it
prints out the correct number of envelopes, accordingly -- up until 2
weeks ago.

Now, there is no rhyme nor reason to the number of envelopes the
Database will print.

I created a Report to perform this task, but it appears the formatting
of the Report is to blame for the omission of some of the envelopes.

When I create a tabular report - ALL - of the records are there! But,
then, when I try to create an envelope report (and adjust margins),
there are records omitted.

Does anybody have any idea what would be wrong with my report/
formatting?

My IT department is of -NO- help to me.

Here is the code for printing the envelopes, but again, I don't think
the code is causing the problem:

*****************

Option Compare Database

Dim intPrintCounter As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If (intPrintCounter < [Number of transcripts to this institution])
Then
intPrintCounter = intPrintCounter + 1
Me.NextRecord = False
Else
intPrintCounter = 1
Me.NextRecord = True
End If

End Sub

Private Sub Report_Open(Cancel As Integer)
intPrintCounter = 1

End Sub

Why are you using 1 as the initializer? What if you only had 1 tx to
print...you set the counter to 1 and you expect to only print if less
than...so that record should never print. IOW, only those with 2 or
more txs should print...if I am reading your code correctly.

[Allen Browne]

Arne, the code you posted will indeed behave wrongly, unless you print all
pages of the report.

For an explanation of why and an alternative approach, see:
Print a Quantity of a Label
at:
http://allenbrowne.com/ser-39.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Arne Reed" <ar***@sccd.ctc.eduwrote in message
news:11**********************@i13g2000prf.googlegr oups.com...

>
I work at a Community College. I have been using Access for 4 years
to track the number and destinations of transcripts we mail out at
students' (and former students' requests). It has worked fine, until
very recently.

I type in the number of envelopes I wish the Database to print and it
prints out the correct number of envelopes, accordingly -- up until 2
weeks ago.

Now, there is no rhyme nor reason to the number of envelopes the
Database will print.

I created a Report to perform this task, but it appears the formatting
of the Report is to blame for the omission of some of the envelopes.

When I create a tabular report - ALL - of the records are there! But,
then, when I try to create an envelope report (and adjust margins),
there are records omitted.

Does anybody have any idea what would be wrong with my report/
formatting?

My IT department is of -NO- help to me.

Here is the code for printing the envelopes, but again, I don't think
the code is causing the problem:

*****************

Option Compare Database

Dim intPrintCounter As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If (intPrintCounter < [Number of transcripts to this institution])
Then
intPrintCounter = intPrintCounter + 1
Me.NextRecord = False
Else
intPrintCounter = 1
Me.NextRecord = True
End If

End Sub

Private Sub Report_Open(Cancel As Integer)
intPrintCounter = 1

End Sub