Avery Labels question

  • Thread starter Thread starter Bg
  • Start date Start date
B

Bg

Hope I got this question to the right group.
Is there a way to select exactly where a name (from an access db query)
prints on an Avery 8160 label. Word gives you an option to select the column
& row for one label at a time.
Any ideas.
Searched in Goggle. did not come up with anything

TIA
Bg
 
BG,

I asked a similar question awhile back and received the following from Fred
G

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.

I never implemented this solution as I decided to use Word automation, hope
it helps.
 
Thanks.....see why you stuck with Word.
I'll look a this later. looks like it'll do the job
Thanks
Bg
Karen said:
BG,

I asked a similar question awhile back and received the following from Fred
G

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.

I never implemented this solution as I decided to use Word automation, hope
it helps.


--
Karen
Bg said:
Hope I got this question to the right group.
Is there a way to select exactly where a name (from an access db query)
prints on an Avery 8160 label. Word gives you an option to select the column
& row for one label at a time.
Any ideas.
Searched in Goggle. did not come up with anything

TIA
Bg
 
Back
Top