Bruce said:
I have been using the skip label module for printing mailing labels.
But while the labels are skipping properly on my screen, when I print
them, it does not skip the labels. I've also tried using "Label Saver
v97.30 from Peter's Software" with the same results.
Could this be a printer problem? I'm using 2000
Bruce Rodtnick
Bruce,
Without seeing your code to skip labels, it's hard to determine what's
wrong.
Try this code. I know it works both in preview and printing.
If this is what you are already using, or if this does't work, then your
problem lies elsewhere.
====
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.
