Size fikir vermesi açısından şöyle bir kod paylaşayım.
Kod:
Private Sub FontSelector()
On Error Resume Next
Dim strFont, strRptName As String
strFont = Me.cmbFont.Value
strRptName = "RaporAdınız"
ApplyFontToReport strFont, strRptName
End Sub
Sub ApplyFontToReport(strFont As String, strRptName As String)
On Error Resume Next
Dim rpt As Report, ctl As Control
Set rpt = Reports(strRptName)
For Each ctl In rpt.Controls
If ctl.ControlType = acTextBox Then
ctl.FontName = strFont
End If
Next ctl
End Subkod comboboxtaki font adını alıp raporunuzdaki textboxlara uygular. Font seçimi yaptığınız comboboxın afterupdate olayında kullanabilirsiniz uyarlayıp. Sadece textbaxlara değil arzu ettiğiniz kontrolleri etiketleri vs de ekleyerek kullanabilirsiniz.
