Skip used mailing labels

[Alison]

I wanted to find out how to skip used mailing labels and found an article in
the Knowledge Base (299024). It looks exactly like what I want to do, but on
step 5 [report header onformat =LabelInitizlize() ] I got an error that said
the Visual Basic module contains a syntax error. Since I just copied and
pasted the info as in the article, I have no idea what's wrong. I've copied
and pasted everything, so I don't know why it's giving me an error. Any
ideas?

 

[fredg]

I wanted to find out how to skip used mailing labels and found an article in
the Knowledge Base (299024). It looks exactly like what I want to do, but on
step 5 [report header onformat =LabelInitizlize() ] I got an error that said
the Visual Basic module contains a syntax error. Since I just copied and
pasted the info as in the article, I have no idea what's wrong. I've copied
and pasted everything, so I don't know why it's giving me an error. Any
ideas?

I have no idea of what the KB articles says or what you did.
I know this method works.

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.

 

[Alison]

thanks, I got that to work!

Alison

I wanted to find out how to skip used mailing labels and found an article in
the Knowledge Base (299024). It looks exactly like what I want to do, but on
step 5 [report header onformat =LabelInitizlize() ] I got an error that said
the Visual Basic module contains a syntax error. Since I just copied and
pasted the info as in the article, I have no idea what's wrong. I've copied
and pasted everything, so I don't know why it's giving me an error. Any
ideas?

I have no idea of what the KB articles says or what you did.
I know this method works.

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.