Skipping labels while printing in Access

[dkuzminski]

Problem is that a module in one Access database behaves properly. The same module imported into another Access database and connected to the properties "On Open" comes up, asks the question, and then fails to do what it should. Instead of skipping x number of labels, it fills out an entire sheet in the show print screen and, of course, prints them that way, too.

Here's the code:

Option Compare Database
Option Explicit

Dim LabelBlanks&
Dim BlankCount&

Function LabelSetup()
LabelBlanks& = Val(InputBox$("Enter number of labels to skip--across then down."))
If LabelBlanks& < 0 Then LabelBlanks& = 0
End Function

Function LabelInitialize()
BlankCount& = 0
End Function

Function LabelLayout(R As Report)
If BlankCount& < LabelBlanks& Then
R.NextRecord = False
R.PrintSection = False
BlankCount& = BlankCount& + 1
End If
End Function

So, any suggestions on what might not be active or why it's not working in the second database?

 

[RuralGuy]

Have you refreshed your references?

http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

HTH RuralGuy (RG for short) acXP winXP Pro
Please respond to this forum so all may benefit

 

[dkuzminski]

Thank you.

Still nothing happens. As a note of interest, both programs are running on the same PC using the same version of Access. I do know that the module is being called because it asks for the number of labels to skip. It's just not skipping when it reaches the form.