Full sheet of same label


J

Judi

Hi, I am trying to create a full sheet of the same label from my access file.
I would like 30 of record 1, 30 of record 2, etc. Is there a way to do that
so I get a full sheet of each record rather than just one label of each?
 
Ad

Advertisements

M

Marshall Barton

Judi said:
Hi, I am trying to create a full sheet of the same label from my access file.
I would like 30 of record 1, 30 of record 2, etc. Is there a way to do that
so I get a full sheet of each record rather than just one label of each?


A common way to get multiple copies of a data record os to
create a little utility table (named Numbers) with one field
(named Num) and populated with values 1,2,3, ... up to more
than you will ever need.

Then you can set the report's record source to a query such
as:

SELECT yourtable.*, Number.Num
FROM yourtable, Numbers
WHERE Numbers.Num <= 30
 
D

Duane Hookom

I would create a table of numbers [tblNums] with a single field [Num] and
values from 1 to 30 (30 records). Add this table to your report's record
source and don't join it to any other table. This will create 30 of each
record.

In your report design, make sure your sorting is set up to order them by
something other than the Num field.
 
J

Jeff Boyce

Judi

I recall a routine that let you specify how many "repeats" you wanted for a
set of records/labels... maybe search on-line or check at
mvps.org/access...

Good luck!

Regards

Jeff Boyce
Microsoft Office/Access MVP
 
G

Gina Whipp

Judi,

I use the below... (Wish I could remember where I got it from!) Place the
below in a module. Name the module anything but the function name.

NOTE: Change the form and text box name in the module to correspond to the
name of your from and text box name.

You will need a form and the text box indicated...

***START CODE
Option Compare Database
Option Explicit

Dim intLabelBlanks&
Dim intLabelCopies&
Dim intBlankCount&
Dim intCopyCount&

Function MailLabelSetUp()
intLabelBlanks& = Val(Forms![frmMailingLabels]![txtSkip])
'Tells you how many to skip
intLabelCopies& = Val(Forms![frmMailingLabels]![txtHowMany])
'Tells you how many of the label you want to print
If intLabelBlanks& < 0 Then intLabelBlanks& = 0
If intLabelCopies& < 1 Then intLabelCopies& = 1
End Function

Function MailLabelInitialize()
intBlankCount& = 0
intCopyCount& = 0
End Function

Function MailLabelLayout(R As Report)
If intBlankCount& < intLabelBlanks& Then
R.NextRecord = False
R.PrintSection = False
intBlankCount& = intBlankCount& + 1
Else
If intCopyCount& < (intLabelCopies& - 1) Then
R.NextRecord = False
intCopyCount& = intCopyCount& + 1
Else
intCopyCount& = 0
End If
End If
End Function
***END CODE

Then...

Place =MailLabelInitialize() in the ReportHeader - On Format
Place =MailLabelLayout([Reports]![YourReportName]) in the ReportDetail - On
Print


--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm
 
J

Judi

I understand in theory what you are saying, but I'm afraid I don't know
understand how to add it to my report's record source. Thanks for your help.

Duane Hookom said:
I would create a table of numbers [tblNums] with a single field [Num] and
values from 1 to 30 (30 records). Add this table to your report's record
source and don't join it to any other table. This will create 30 of each
record.

In your report design, make sure your sorting is set up to order them by
something other than the Num field.
--
Duane Hookom
Microsoft Access MVP


Judi said:
Hi, I am trying to create a full sheet of the same label from my access file.
I would like 30 of record 1, 30 of record 2, etc. Is there a way to do that
so I get a full sheet of each record rather than just one label of each?
 
Ad

Advertisements

D

Duane Hookom

Open your report in design view and find the Record Source property. Click
the builder button on the far right to go to the query design. You can then
add the table of numbers and drop the Num field into the grid. If you have
more records than 1-30, you may need to set the criteria under this column to:
Between 1 and 30
Then close the query design view and check out the print preview of your
report.

--
Duane Hookom
Microsoft Access MVP


Judi said:
I understand in theory what you are saying, but I'm afraid I don't know
understand how to add it to my report's record source. Thanks for your help.

Duane Hookom said:
I would create a table of numbers [tblNums] with a single field [Num] and
values from 1 to 30 (30 records). Add this table to your report's record
source and don't join it to any other table. This will create 30 of each
record.

In your report design, make sure your sorting is set up to order them by
something other than the Num field.
--
Duane Hookom
Microsoft Access MVP


Judi said:
Hi, I am trying to create a full sheet of the same label from my access file.
I would like 30 of record 1, 30 of record 2, etc. Is there a way to do that
so I get a full sheet of each record rather than just one label of each?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top