Full sheet of same label

  • Thread starter Thread starter Judi
  • Start date Start date
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?
 
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?
Click to expand...


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
 
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.
 
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
 
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
 
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?
Click to expand...
Click to expand...
 
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?
Click to expand...
Click to expand...
Click to expand...
 
Back
Top