Page Header

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi All,

I'm in the page header field, If I highlight all the headings is there a way
to change them all to upper case, to save retyping.

Thanks,
kfh.
 
Hi All,

I'm in the page header field, If I highlight all the headings is there a way
to change them all to upper case, to save retyping.

Thanks,
kfh.
Click to expand...

No, but you can do it easily enough using code.

Copy and paste the below code into a module.

Public Sub ChangeHeader()
DoCmd.OpenReport "ReportName", acViewDesign, , , acHidden

Dim c As Control
For Each c In Reports!ReportName.Section(3).Controls
If TypeOf c Is Label Then
c.Caption = UCase(c.Caption)
End If
Next c

DoCmd.Close acReport, "ReportName", acSaveYes
End Sub
==========
Change ReportName to the actual name of your report.

Note that the ReportName is NOT in quotes in the For Each ... line.

Section(3) is the Page Header. To change other header/footers
substitute the appropriate header/footer section value
 
Back
Top