Printing labels

  • Thread starter Thread starter Don
  • Start date Start date
D

Don

I need to create a label that will print on a sheet of stickers that will
then be placed on sample containers. The sheet will have 3 stickers across
with about 8 rows down. I understand you would create a report that fits to
the size of the sticker. How would you handle that on Day 1, they print 4
sample labels. On Day 2, they need to print another 2 sample labels. How
would you get the labels to start on row 2, column 2, as the first 4 stickers
will already be used.

Thanks
 
I need to create a label that will print on a sheet of stickers that will
then be placed on sample containers. The sheet will have 3 stickers across
with about 8 rows down. I understand you would create a report that fits to
the size of the sticker. How would you handle that on Day 1, they print 4
sample labels. On Day 2, they need to print another 2 sample labels. How
would you get the labels to start on row 2, column 2, as the first 4 stickers
will already be used.

Thanks
Click to expand...

First create a label report.
Then add a Report Header.
Add 2 unbound controls to the Header.
Name one "SkipControl"
Leave it's control source blank.

Name the other control "SkipCounter"
Set it's control source to:
=[Skip how many?]

Then code the report's Detail Print event¡K

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

End Sub

And code the Report Header's Format event¡K

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

Run the label report. Enter the number of label positions you wish to
skip.
 
Back
Top