Sub Schriftart_aendern(Optional rep As Report)
  '  Der Bericht muss in der Entwurfsansicht geöffnet sein.
  '  Der erste Aufruf der Prozedur erfolgt über den Direktbereich mit:
  '  call Schriftart_aendern
  Dim r As Report
  Dim ur As Report
  Dim c As control
  Dim t As TextBox
  Dim l As label
  Dim sf As SubForm
  

  If rep Is Nothing Then
    Set r = Screen.ActiveReport
  Else
    Set r = rep
  End If
  
  For Each c In r.Controls
    If TypeOf c Is TextBox Then
      Set t = c
      t.FontName = "Arial"
      t.FontSize = 9
      Debug.Print r.Name & "/" & t.Name
    ElseIf TypeOf c Is label Then
      Set l = c
      l.FontName = "Arial"
      l.FontSize = 9
      Debug.Print r.Name & "/" & l.Name
    ElseIf TypeOf c Is SubForm Then
      Set sf = c
      Set ur = sf.Report
      ' Hier wird rekursiv der Unterbericht umgestellt
      Schriftart_aendern ur
      Debug.Print r.Name & "/" & sf.Name
    End If
  Next c
  ' Ordnung muss sein :)
  Set r = Nothing
  Set ur = Nothing
  Set c = Nothing
  Set t = Nothing
  Set l = Nothing
  Set sf = Nothing

End Sub