+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor Yazı Fontunu Değiştirme (/konu-rapor-yazi-fontunu-degistirme.html)
Sayfalar:
1
2
Rapor Yazı Fontunu Değiştirme - ates2014 - 19/01/2024
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.?
RE: Rapor Yazı Fontunu Değiştirme - atoykan - 19/01/2024
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 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.
RE: Rapor Yazı Fontunu Değiştirme - ates2014 - 19/01/2024
hocam bu satıda hata veriyor,
ApplyFontToReport strFont, strRptName
strFont seçiliyor
RE: Rapor Yazı Fontunu Değiştirme - atoykan - 19/01/2024
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.
RE: Rapor Yazı Fontunu Değiştirme - ates2014 - 19/01/2024
Sy.atoykan,
Set rpt = Reports(strRptName)
bu satır hata veriyor.
RE: Rapor Yazı Fontunu Değiştirme - atoykan - 19/01/2024
Aynı kodla ben örneğinizi düzenledim bende niye hata vermiyor?