Specifying starting label position

[Guest]

Hi,

I would like to be able to specify the starting label position for printing
out our mailing labels. I have been able to find a function that allows me to
change the starting position of the labels however it changes the starting
position for EVERY PAGE in the label report. I just want the first page to
change position and want to assume that the remaining pages of the print job
will be on full label sheets.

Any advice and assistance is greatly appreciated.

Thanks!

 

[fredg]

Hi,

I would like to be able to specify the starting label position for printing
out our mailing labels. I have been able to find a function that allows me to
change the starting position of the labels however it changes the starting
position for EVERY PAGE in the label report. I just want the first page to
change position and want to assume that the remaining pages of the print job
will be on full label sheets.

Any advice and assistance is greatly appreciated.

Thanks!

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:
Note: Make sure you place this code in the REPORT Header,
not the Page header!!!!

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.