Centar za edukaciju-BiH



#11 03.03.2015 23:39
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


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
↑  ↓

#12 03.03.2015 23:54
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


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
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 23 am.