Skip to main content

AccessTr.neT


Rapor Yazı Fontunu Değiştirme

Rapor Yazı Fontunu Değiştirme

Çözüldü #1
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.?
.rar rapor.rar (Dosya Boyutu: 18,18 KB | İndirme Sayısı: 5)
Cevapla
#2
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.
Cevapla
#3
hocam bu satıda hata veriyor,
ApplyFontToReport strFont, strRptName

strFont seçiliyor
Cevapla
#4
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.
Cevapla
#5
Sy.atoykan,
Set rpt = Reports(strRptName)
bu satır hata veriyor.
Cevapla
#6
Aynı kodla ben örneğinizi düzenledim bende niye hata vermiyor?
.rar rapor_editedatoykan.rar (Dosya Boyutu: 22,48 KB | İndirme Sayısı: 6)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da