Mailing Labels

  • Thread starter Thread starter Guest
  • Start date Start date
Hi Jen,

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.

So all of this is on one "handy-dandy" form!
(sorry, Blue's Clues reference).

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. Let me know what Access
version also if you want to see it. Finally, let me know
where you would like it sent (if desired), but PLEASE mask
your e-mail address so you don't get SPAM'd like crazy.
Just do something like:

jen
at
somewhere
dot
com

Hope that helps,
Jeff Conrad
Bend, Oregon
 
Back
Top