3 labels per report page problem

L

LADOCITGUY

I have a report header (0.2"), a detail section of 4.597", and a group footer
(1"). The page margins are 0.5" top and bottom.

I have to print 3 certification cards per page - and keep the data in the
same spot on each page. The 1st sub (below) suppresses the group footer for
the 3rd label on each page. The 2nd and 3rd subs are used to skip a card if
the user wants to start the printing on the 2nd or 3rd card instead of the
1st.

My problem is when I enter any number other than 0 to skip labels, the
labels "creep up" the page. I'm thinking it is because I am using a report
header when I added the text boxes to perform the skip routine.

Any suggestions on solving this? Is there any way to have text boxes in the
header (set to not visible) but NOT use any space in printing them? This
would solve my problem, I believe - because it works fine without the text
boxes and the skip routine.


Private Sub GroupFooter3_Format(Cancel As Integer, FormatCount As Integer)
Me.GroupFooter3.Visible = (((Me.txtCount - 1) Mod 3) <> 2)
End Sub

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount <= [SkipCounter] And [SkipControl] = "Skip" Then
Me.NextRecord = False
Me.PrintSection = False
Else
[SkipControl] = "No"
Me.PrintSection = True
Me.NextRecord = True
End If
End Sub


Thanks

CH
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top