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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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 | |
|
|