This looks very interesting. However where I would not be adding that
footer to all Reports, could I restructure the code to use a user table that
I would build from a query on reports in the systems table. I would then
remove the few reports from that user table that did not need the footer. I
MIGHT BE OFF A LOT. The code looks like you are referring to a container
where report names are stored and I think that might be different then the
systems table that I was referring to please advise how I might retrieve a
list of report names and any other fields needed from that container?
THANKS SO MUCH FOR YOUR TIME AND ASSISTANCE
==========================================
I have about 200 reports that I need to add "Confidential" to the footer
of.
Is there a way that I can do this with an automated function?
Thanks in advance for your help.
Footer of? As in Report Footer?
Some Reports?
Add one label to one report.
Select the label and copy it.
Open each report in turn and paste the label into the Report Footer
section.
Move it where you want it.
All reports?
The following will add a label to each report footer in your database
(if the report has a report footer) and position it 2 inches from the
left and 1/2-inch down from the top of the section. Change those
positions as needed.
Are you sure the label will fit in the same position on all reports?
It's up to you to know, for each report, if that position will work
without messing up your report.
Note: All measurements are in Twips, 1440 per inch.
Watch out for word wrap on the longer lines.
Copy and Paste the following into a Module.
Public Sub AddReportControl()
Dim db As DAO.Database
Dim doc As Document
Set db = CurrentDb
Dim ctl As Control
For Each doc In db.Containers("reports").Documents
DoCmd.OpenReport doc.Name, acViewDesign, , , acHidden
On Error GoTo NoFooter
Application.CreateReportControl doc.Name, acLabel, acFooter, ,
"Confidential", 1440 * 2, 0.5 * 1440, 2880, 1440
For Each ctl In Reports(doc.Name).Section(2).Controls
If TypeOf ctl Is Label Then
If ctl.Caption = "Confidential" Then
' Re-size the control within the section and set it's
fontsize to 14
ctl.Width = 1.5 * 1440
ctl.Height = 0.3 * 1440
ctl.fontsize = 14
End If
End If
Next ctl
CloseReport:
DoCmd.Close acReport, doc.Name, acSaveYes
Next doc
Exit_Sub:
Exit Sub
NoFooter:
Resume CloseReport
End Sub
Change the positioning as needed.
Perhaps Copy and Paste would be more efficient as you can easily
miss-position the label on the different reports.
