AccessTr.neT

Bul · 19/01/2024, 10:38

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

Bul · 19/01/2024, 13:24

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.

Bul · 19/01/2024, 16:11

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

strFont seçiliyor

Bul · 19/01/2024, 16:52

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.

Bul · 19/01/2024, 18:49

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

Bul · 19/01/2024, 23:53

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

AccessTr.neT

Rapor Yazı Fontunu Değiştirme

Rapor Yazı Fontunu Değiştirme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri