更改Microsoft Access報告上所有控件的字體

Question

我有一個非常複雜的Microsoft Access報告。此報告針對多個客戶運行。我想更改特定客戶的報表上控件的子集**（有噸）的字體，但不適用於其他客戶。由於字體設置在控制級別，是否有可能以編程方式更改它？

**選擇子集的標準將基於當前的字體。例如，我想改變當前使用Arial的所有控件的字體。

Answer 1

如何：

Private Sub Report_Load() 
If Me.OpenArgs = "1" Then 
    ChangeFont Me 
End If 
End Sub 


Sub ChangeFont(rpt As Report) 
Dim ctl As Control 

    For Each ctl In rpt.Controls 
     If ctl.ControlType = acSubform Then 
      ChangeFont ctl.Report 
     ElseIf ctl.ControlType = acTextBox Then 
      If ctl.FontName = "Calibri" Then 

       ctl.FontName = "Times" 
      End If 
     End If 
    Next 
End Sub 

Answer 2

你可以做類似如下：

DoCmd.OpenReport "MyReport", acViewDesign, , , acHidden 
For Each ctl In Reports.Item("AmbulanceServices") 
    If ctl.FontName = "Arial" Then 
    ctl.FontName = "Tahoma" 
    ctl.FontSize = 10 
    End If 
Next 
DoCmd.Save acReport, "MyReport"