Centar za edukaciju-BiH

Predmet:Re: Boldiranje određenih redova u reportu

---

hvala ljudi

ja se živ napatio a vi to jednostavno nije mi palo na pamet

kome bude trebalo ispravan

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim B As Boolean
B = Me.bold
If B = True Then
Text0.FontWeight = 700 ' Boldirana slova
Text2.FontWeight = 700 ' Boldirana slova
Text3.FontWeight = 700 ' Boldirana slova
Text4.FontWeight = 700 ' Boldirana slova
Text5.FontWeight = 700 ' Boldirana slova
Text6.FontWeight = 700 ' Boldirana slova
Else
Text0.FontWeight = 400 ' Boldirana slova
Text2.FontWeight = 400 ' Boldirana slova
Text3.FontWeight = 400 ' Boldirana slova
Text4.FontWeight = 400 ' Boldirana slova
Text5.FontWeight = 400 ' Boldirana slova
Text6.FontWeight = 400 ' Boldirana slova

End If
End Sub

hvala zxz tvoj sam odmah skonto

hvala i gjoreski tvoj još nisam al skontat ču iako sam ispravio nazve polja

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