Re: Printing labels in a certain row or column on the ***

From: fredg (fgutkind_at_example.invalid)
Date: 08/13/04 

Date: Fri, 13 Aug 2004 18:19:52 GMT

On Fri, 13 Aug 2004 09:44:09 -0700, DH wrote:

> Does anyone have code written that will enable you to
> choose the starting printing position (row and column)on a
> page of blank labels? The generic report wizard in Access
> assumes you have an entire page of blank labels. I had a
> former co-worker who put together code that would ask you
> for a starting row and column, so that if you had already
> used some of the labels on a ***, you could insert the
> page back into your printer and choose a start printing
> further down the page. If anyone knows how to do this,
> I'd really appreciate the help.

First make sure your label report is properly printing a full *** 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 only reply to this newsgroup.
I do not reply to personal email.