Prikazi cijelu temu 03.03.2015 17:56
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Boldiranje određenih redova u reportu
eve probaj ova

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  2. Dim mBold as Boolean
  3.  mBold=Dlookup("bold","AOP_NAZIV","AOP= '"& me.Text0 & "'")
  4. If bBold=True Then
  5.      Text0.FontWeight = 700   ' Boldirana slova
  6.     Text2.FontWeight = 700   ' Boldirana slova
  7.     Text3.FontWeight = 700   ' Boldirana slova
  8.     Text4.FontWeight = 700   ' Boldirana slova
  9. ElseIf bBold=false then
  10.      Text0.FontWeight = 400   ' Boldirana slova
  11.     Text2.FontWeight = 400   ' Boldirana slova
  12.     Text3.FontWeight = 400   ' Boldirana slova
  13.     Text4.FontWeight = 400   ' Boldirana slova
  14. End If
  15. End Sub