1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub police()
''''''''''''''''' Les polices ''''''''''''''''''''''''
Dim chxname As String
Dim chxbold, chxitalic, chxbarre, chxsouligne As Boolean
Dim chxsize As Integer
Dim Z As Integer
Dim chxcolor As Double
Open App.Path & "\police.mod" For Input As #1
Input #1, chxname, chxbold, chxitalic, chxsize, chxbarre, chxsouligne, chxcolor
Close #1
For Z = 247 To 361
NoFiel = CStr(Z)
LeControle = "T" + NoFiel
Report.LeControle.Font.Name = chxname
Report.LeControle.Font.Bold = chxbold
Report.LeControle.Font.Italic = chxitalic
Report.LeControle.Font.Size = chxsize
Report.LeControle.Font.Strikethrough = chxbarre
Report.LeControle.Font.Underline = chxsouligne
Next
End Sub |
Partager