Avery 5164

  • Thread starter Thread starter Karen
  • Start date Start date
K

Karen

Hi All,

I have a report to print a shipping label using the Avery 5164 template. Most of the time I'll only print two shipping labels so when I go to print another I would really like to select which label to start on so I don't have to use a whole sheet of labels for just two labels.

Any ideas?
 
Hi All,

I have a report to print a shipping label using the Avery 5164
template. Most of the time I'll only print two shipping labels so
when I go to print another I would really like to select which
label to start on so I don't have to use a whole sheet of labels
for just two labels.

Any ideas?
Click to expand...

Karen,

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,

Thank you so much. I was hoping there was something simple and I never
would have figured this out on my own!

Thanks again.

--
Karen
fredg said:
Hi All,

I have a report to print a shipping label using the Avery 5164
template. Most of the time I'll only print two shipping labels so
when I go to print another I would really like to select which
label to start on so I don't have to use a whole sheet of labels
for just two labels.

Any ideas?
Click to expand...

Karen,

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.
Click to expand...
 
Back
Top