kenan | 04.03.2015 00:39 |
---|---|
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 |
kenan | 04.03.2015 00:54 |
---|---|
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 |