Rapor Yazı Fontunu Değiştirme

1 2

Merhaba arkadaşlar,
Form üzerinden , açılır kutuda seçtiğim fontun Rapor1 sayfasındaki bütün yazı fontlarını nasıl değiştirebilirim.?

Merhaba Sayın @ates2014

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 Sub

kod 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.

hocam bu satıda hata veriyor,
ApplyFontToReport strFont, strRptName

strFont seçiliyor

Dim strFont, strRptName As String kısmında fonttan sonra as string yazarak dener misiniz? Ben hızla yazıp çıkayım derken atlamışım.
Dim strFont As String, strRptName As String şeklinde

strFont = Me.cmbFont.Value kısmında da kendi kontrolünüzün yazdığından emin olun.

Sy.atoykan,
Set rpt = Reports(strRptName)
bu satır hata veriyor.

Aynı kodla ben örneğinizi düzenledim bende niye hata vermiyor?

1 2