17-10-12, 02:21 PM
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله وبركاتهكود :
[SIZE=2]Private Sub FindPolices()[/SIZE]
[SIZE=2]Dim i As Long[/SIZE]
[SIZE=2]For i = 0 To Screen.FontCount - 1[/SIZE]
[SIZE=2]Debug.Print Screen.Fonts(i)[/SIZE]
[SIZE=2]Next[/SIZE]
[SIZE=2]End Sub[/SIZE]