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