Crazy Label question...

  • Thread starter Thread starter Jenny
  • Start date Start date
J

Jenny

I print regular file labels on Avery 5162 labels. Is
there a way to drop down to a specified label in order to
avoid wasting labels? For instance, if I have a sheet of
labels and the first top two are used, can I drop down to
the first column, second row?

I use access 97.

Thanks
 
Hi Jenny,

I have two options for you.

1. Here are some detailed instructions on this subject
just recently posted by the world famous FredG:
This will permit you to enter the number of times to
repeat the labels, as well as skip missing label positions
on an already used sheet.

First make sure your label report properly prints 1 label
per record.

Then add a Report Header to the label report.
Add 3 unbound text boxes to the header.
1) Set the Control Source to:
= [Skip how many]
Name this control SkipCounter
2) Leave the second control unbound.
Name this control SkipControl
3) Set the third control's Control Source to:
=[Repeat how many]
Name it RepeatCounter

Next code the Report Header OnFormat event:

Private Sub ReportHeader_Format(Cancel As Integer,
FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
=======
Now code the Detail OnPrint 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 IsNull([RepeatCounter]) Then
ElseIf intMyPrint Mod [RepeatCounter] = 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 labels to
skip, then how many times to repeat each label.
FredG
2. Using Fred's excellent advice I made a slick form that
I now use all the time to print address labels. The form
has a graphical display of 30 labels on the sheet and you
just click which one you want to start on.

You can also enter how many times you want to repeat each
label. The default is just one.

I also have a multi-select listbox on the form to either
select all vendors (employees, etc) or to pick and choose
which one(s) you want to print.

Unfortunately I do not have a website to post this form
for download. If you'd like a copy let me know, I should
be able to pull it out of the application and remove
security stuff so you can use it.

Hope that helps,
Jeff Conrad
Access Junkie
Bend, Oregon
 
Here's a couple more options for you as well:

HOW TO: Skip Used Mailing Labels and Print Duplicates in Access 2000
http://support.microsoft.com/?id=231801

Allen Browne has information at his web site
http://members.iinet.net.au/~allenbrowne/ser-39.html

(Although at the moment his site seems to be down)

Good luck,
Jeff Conrad
Access Junkie
Bend, Oregon

Jeff Conrad said:
Hi Jenny,

I have two options for you.

1. Here are some detailed instructions on this subject
just recently posted by the world famous FredG:
This will permit you to enter the number of times to
repeat the labels, as well as skip missing label positions
on an already used sheet.

First make sure your label report properly prints 1 label
per record.

Then add a Report Header to the label report.
Add 3 unbound text boxes to the header.
1) Set the Control Source to:
= [Skip how many]
Name this control SkipCounter
2) Leave the second control unbound.
Name this control SkipControl
3) Set the third control's Control Source to:
=[Repeat how many]
Name it RepeatCounter

Next code the Report Header OnFormat event:

Private Sub ReportHeader_Format(Cancel As Integer,
FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
=======
Now code the Detail OnPrint 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 IsNull([RepeatCounter]) Then
ElseIf intMyPrint Mod [RepeatCounter] = 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 labels to
skip, then how many times to repeat each label.
FredG
2. Using Fred's excellent advice I made a slick form that
I now use all the time to print address labels. The form
has a graphical display of 30 labels on the sheet and you
just click which one you want to start on.

You can also enter how many times you want to repeat each
label. The default is just one.

I also have a multi-select listbox on the form to either
select all vendors (employees, etc) or to pick and choose
which one(s) you want to print.

Unfortunately I do not have a website to post this form
for download. If you'd like a copy let me know, I should
be able to pull it out of the application and remove
security stuff so you can use it.

Hope that helps,
Jeff Conrad
Access Junkie
Bend, Oregon

Jenny said:
I print regular file labels on Avery 5162 labels. Is
there a way to drop down to a specified label in order to
avoid wasting labels? For instance, if I have a sheet of
labels and the first top two are used, can I drop down to
the first column, second row?

I use access 97.

Thanks
Click to expand...
Click to expand...
 
Why not build a table that receives the labels. Prior to
adding a new record check to see if you have enough to
print a page, print the page, delete all records and
start adding records again.
 
Back
Top