Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim mBold as Boolean
 mBold=Dlookup("bold","AOP_NAZIV","AOP= '"& me.Text0 & "'")
If bBold=True Then
     Text0.FontWeight = 700   ' Boldirana slova
     Text2.FontWeight = 700   ' Boldirana slova
     Text3.FontWeight = 700   ' Boldirana slova
     Text4.FontWeight = 700   ' Boldirana slova
ElseIf bBold=false then
     Text0.FontWeight = 400   ' Boldirana slova
     Text2.FontWeight = 400   ' Boldirana slova
     Text3.FontWeight = 400   ' Boldirana slova
     Text4.FontWeight = 400   ' Boldirana slova
End If
End Sub