printing fonts

[baztile2000]

i wonder if anyone knows of a vba to print all the fonts installed
i did once see this for word but cannot remember it
thanks !!

 

[Legacy 98055]

Yes. It's out there. That's why I'm hesitant to re-invent the wheel. Have you googled away on this one before posting???

http://www.google.com/search?hl=en&q=list+all+fonts+excel

 

[DominicB]

Good afternoon baztile2000

How about this :

Sub Test()
Set FList = Application.CommandBars("Formatting").FindControl(ID:=1728)
For n = 0 To FList.ListCount - 1
Range("A" & n + 1).Value = FList.List(n + 1)
Next n
End Sub

This is pretty rough and ready and will overwrite column A of the currently active sheet without checking it's empty - run it from a blank worksheet.

HTH

DominicB