Label Printing

[Chris B.]

Does anyone know a way to print to a selected label on an
Avery sheet. We print one label on a page that holds 10.
We would like to use the other 9 labels again. I have
figured out a way for instance to print to the 3rd label
only by filling the other records with blanks, however,
our company logo is printed and I can not turn it off.

 

[HSalim]

Chris,
If you dont already own the Access Developer's Toolkit, you should get it.
There are some cool tools in there, one that meets your needs to a T-
Where you can specify the starting label of a sheet of labels.

HS

 

[Mike Painter]

Chris,

First make sure your label report is properly printing a full sheet of
labels.

Then add a Report Header to your label report.
Add 2 text boxes to the Header.
1) Name one SkipControl
Leave it's control source unbound

2) Name the other SkipCounter
Set it control Source to =[Skip How Many?]

Now code the Report Header Format event as below:

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

Next code the Detail OnPrint event:

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
=====

When you are ready to run the label report, it will ask how many to
skip.
Then it will run the report.

This is a good solution, however the Access developers handbook has the code
for a form that lets you click where to start.

 

[Fredg]

That's great, Mike, and if someone wants to go to the overhead of doing
that, that's certainly fine by me. For my own use, I use a form to enter
this into, but it is overkill to attempt, in a newsgroup, to supply too much
information, when a much simpler and more direct solution will do.

--
Fred

Please reply only to this newsgroup.
I do not reply to personal e-mail.

Chris,

First make sure your label report is properly printing a full sheet of
labels.

Then add a Report Header to your label report.
Add 2 text boxes to the Header.
1) Name one SkipControl
Leave it's control source unbound

2) Name the other SkipCounter
Set it control Source to =[Skip How Many?]

Now code the Report Header Format event as below:

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

Next code the Detail OnPrint event:

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
=====

When you are ready to run the label report, it will ask how many to
skip.
Then it will run the report.

This is a good solution, however the Access developers handbook has the code
for a form that lets you click where to start.