Predmet:Re: Boldiranje određenih redova u reportu

---

radi cak i na formama

možda nekom zatreba

Private Sub Detail_Paint()
Dim B As Boolean
B = Me.bold
If B = True Then
redni_broj.FontWeight = 700 ' Boldirana slova
AOP.FontWeight = 700 ' Boldirana slova
Grupa_konta.FontWeight = 700 ' Boldirana slova
Opis.FontWeight = 700 ' Boldirana slova
predhodna_godina.FontWeight = 700 ' Boldirana slova
tekuča_godina.FontWeight = 700 ' Boldirana slova
Else
redni_broj.FontWeight = 400 ' Boldirana slova
AOP.FontWeight = 400 ' Boldirana slova
Grupa_konta.FontWeight = 400 ' Boldirana slova
Opis.FontWeight = 400 ' Boldirana slova
predhodna_godina.FontWeight = 400 ' Boldirana slova
tekuča_godina.FontWeight = 400 ' Boldirana slova

End If

End Sub