Printing a record multiple times

[Guest]

I have a table with the following information: item id, location, cartons, units. With this table I created a report that will print labels but I need labels for each carton. For each item I have a different amount of cartons so I need to print a different amount of labels. How can I use the cartons field to dictate how many times the label is printed?

 

[fredg]

I have a table with the following information: item id, location,
cartons, units. With this table I created a report that will print
labels but I need labels for each carton. For each item I have a
different amount of cartons so I need to print a different amount
of labels. How can I use the cartons field to dictate how many
times the label is printed?

This will repeat print labels and offer the ability to start printing
from a pre-selected position on a sheet (if labels are missing).

First make a regular label report that correctly prints one label per
record.

It assumes a Report Record Source with a field [Qty] that contains the
number of times you wish to repeat a label.

Make sure the [Qty] field (or your equivalent field name) is included
in the Detail section.
Set it's Visible property to No.

Next add a Report Header to the report.
Add 2 unbound text boxes to the Header.
1) Name one SkipControl
Leave it's Control Source unbound
2) Name the other SkipCounter
Set it's Control Source to:
= [Skip How Many?]

Then code the Report Header Format event as follows:
(watch out for word wrap on the longer lines):

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
======
Next code the Detail Print event:
(Note that intMyPrint is Static!!)

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

If intMyPrint Mod [Qty] = 0 Then
Me.NextRecord = True
intMyPrint = 0
Else
Me.NextRecord = False
End If
End If

End Sub
=========

When you run the report, it will ask how many missing label positions
to skip.
Then it will repeat labels as indicated in each records [Qty] field.
**Remember to change the [Qty] field to whatever you named your
field.**

Hope this helps.

 

[Guest]

fredg, it worked great. Thank you!

I have a table with the following information: item id, location,
cartons, units. With this table I created a report that will print
labels but I need labels for each carton. For each item I have a
different amount of cartons so I need to print a different amount
of labels. How can I use the cartons field to dictate how many
times the label is printed?

This will repeat print labels and offer the ability to start printing
from a pre-selected position on a sheet (if labels are missing).

First make a regular label report that correctly prints one label per
record.

It assumes a Report Record Source with a field [Qty] that contains the
number of times you wish to repeat a label.

Make sure the [Qty] field (or your equivalent field name) is included
in the Detail section.
Set it's Visible property to No.

Next add a Report Header to the report.
Add 2 unbound text boxes to the Header.
1) Name one SkipControl
Leave it's Control Source unbound
2) Name the other SkipCounter
Set it's Control Source to:
= [Skip How Many?]

Then code the Report Header Format event as follows:
(watch out for word wrap on the longer lines):

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
======
Next code the Detail Print event:
(Note that intMyPrint is Static!!)

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

If intMyPrint Mod [Qty] = 0 Then
Me.NextRecord = True
intMyPrint = 0
Else
Me.NextRecord = False
End If
End If

End Sub
=========

When you run the report, it will ask how many missing label positions
to skip.
Then it will repeat labels as indicated in each records [Qty] field.
**Remember to change the [Qty] field to whatever you named your
field.**

Hope this helps.