Printing Labels

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Alex H - 11 Dec 2005 21:27 GMT

Hi I print to cut sheet labels. The usual problem is that if I only print
say 6 labels on a sheet of 12, the balance are usually wasted, as Access
will always want to start at top left hand label.

I didn't know if anyone had come up with a way to get round this problem.

Thanks

Alex

Reply to this Message

fredg - 11 Dec 2005 21:31 GMT

> Hi I print to cut sheet labels. The usual problem is that if I only print
> say 6 labels on a sheet of 12, the balance are usually wasted, as Access
[quoted text clipped - 5 lines]
>
> Alex

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.

Signature

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

Reply to this Message

Merg to the max - 11 Dec 2005 21:57 GMT

Wow Fred very nice!

And I bought a dot matrix printer to solve this problem.

Reply to this Message