Group:  Microsoft Access ยป microsoft.public.access.reports
Thread: Start Printing 3 col labe at choice of column/row

DotNetBag
.NET Development Newsgroups

HTVi
TV Discussion Newsgroups

Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Rising Antivirus 2006

Start Printing 3 col labe at choice of column/row
"The Central Scrutinizer" <mdionne[ at ]gwi.net> 27.08.2006 20:46:40
Greetings.

Don't have a label printer, but on 3 column, 10 row (Avery type) label
sheet, would like to start print labels at specific column and row, say 3rd
column of 3, at row 7 of 10.

Perhaps a little parameter query prior to print?

Thanks,

Mike

--
_________________________________________
Michael Dionne - Network and Software Consultant
176B Port Road, Kennebunk, ME 04043
Phone: (207) 976-4338 Email: mdionne[ at ]gwi.net


Re: Start Printing 3 col labe at choice of column/row
fredg <fgutkind[ at ]example.invalid> 28.08.2006 00:08:19
On Sun, 27 Aug 2006 16:46:40 -0400, The Central Scrutinizer wrote:

[Quoted Text]
> Greetings.
>
> Don't have a label printer, but on 3 column, 10 row (Avery type) label
> sheet, would like to start print labels at specific column and row, say 3rd
> column of 3, at row 7 of 10.
>
> Perhaps a little parameter query prior to print?
>
> Thanks,
>
> Mike

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
Please respond only to this newsgroup.
I do not reply to personal e-mail

Home | Search | Terms | Imprint | Contact
Newsgroups Reader - provided by WiredBox.Net