Predmet:Re: Boldiranje određenih redova u reportu

---

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim B As Boolean
B = Me.bold
If B = True Then
Me.AOP.FontWeight = 700
Me.Naziv_polja.FontWeight = 700
Me.Bilješka.FontWeight = 700
Me.GrupaKonta.FontWeight = 700
Else
Me.AOP.FontWeight = 400
Me.Naziv_polja.FontWeight = 400
Me.Bilješka.FontWeight = 400
Me.GrupaKonta.FontWeight = 400
End If
End Sub

---