A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Setting Up & Running Reports
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

3 labels per page - Allen Browne or FredG maybe???



 
 
Thread Tools Display Modes
  #1  
Old January 20th, 2010, 03:35 PM posted to microsoft.public.access.reports
LADOCITGUY
external usenet poster
 
Posts: 6
Default 3 labels per page - Allen Browne or FredG maybe???

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.

Thanks

CH

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
 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 05:11 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.