Printout does not match preview

[badmem]

I have a report that uses a counter to print 20 rows or less per page. On Print preview the form shows 20 rows will be printed. When the report is printed only 19 rows are on each page. There is plenty of space to print the last row. I tried two different printers but get the same result. Any idea what is causing this?



Thank you.

[Bulzie]

Make your code print 21 and see if it prints out 20 on a page.

[badmem]

Thanks for your reply. If I change the code from 20 to 21 the screen shows rows 1 to 4 on the first page then rows 7 to 27 on page 2, 28 to 48 on page 3.
The printout shows rows 1 to 3 on page 1, rows 4 to 24 on page 2, 25 to 45 on page 3.

What is going on?

[Bulzie]

Are you dealing with an actual Report or a Form you are trying to print?

[badmem]

Thanks for the reply. This is a report based on a query.

[Bulzie]

What code are you using to limit it to 20 and where are you running the code? How are you using the counter?

[Bulzie]

Saw this online:

You have to create a textbox on the report "RowCounter" with control source of "=1"
Running Sum of Over Group, then add this code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [RowCounter] Mod 20 = 0 Then

Me.Detail.ForceNewPage = 2

Else

Me.Detail.ForceNewPage = 0

End If
End Sub

[badmem]

What code are you using to limit it to 20 and where are you running the code? How are you using the counter?

This is the code I'm using on the form:

Option Compare Database
Option Explicit
Dim vCounter As Integer
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
vCounter = 1
End Sub

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If vCounter = 20 Then
Reports![YEARLY DOSE REPORT 2016 NEW].Section(acDetail).ForceNewPage = 1
vCounter = 0
Else
Reports![YEARLY DOSE REPORT 2016 NEW].Section(acDetail).ForceNewPage = 0
End If
vCounter = vCounter + 1
End Sub

[badmem]

Saw this online:

You have to create a textbox on the report "RowCounter" with control source of "=1"
Running Sum of Over Group, then add this code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [RowCounter] Mod 20 = 0 Then

Me.Detail.ForceNewPage = 2

Else

Me.Detail.ForceNewPage = 0

End If
End Sub

I edited my code to use a text box as you posted.

It seems to be working correctly now.

Thanks a lot.

I have a lot to learn.

[AccessPower]

Saw this online:

You have to create a textbox on the report "RowCounter" with control source of "=1"
Running Sum of Over Group, then add this code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [RowCounter] Mod 20 = 0 Then

Me.Detail.ForceNewPage = 2

Else

Me.Detail.ForceNewPage = 0

End If
End Sub

That mod 20 though... very cool. I keep forgetting about the mod math function. Useful.