Label Printing

[rob]

I have a report that prints labels for folders. Is there
any way to control what label is printed on, on a label
sheet with labels that is 3labels x 10 labels?

Thanks,
Rob

 

[Guest]

Hi there

I created a customized label set using the label wizard, specifying there, the type of labels used

ht

Carlee

 

[fredg]

I have a report that prints labels for folders. Is there
any way to control what label is printed on, on a label
sheet with labels that is 3labels x 10 labels?

Thanks,
Rob

Rob,
Do you mean print from the 3rd label onward?

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.

 

[Rob]

Thanks Fred, that did exactly what I needed.

Rob

-----Original Message-----

I have a report that prints labels for folders. Is there
any way to control what label is printed on, on a label
sheet with labels that is 3labels x 10 labels?

Thanks,
Rob

Rob,
Do you mean print from the 3rd label onward?

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.

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