Printing Fonts

  fazer 14:01 27 Oct 2007

Several years ago I used to be able to print off a sample of all the fonts installed in one job-lot - that is, a sample of each font was printed automatically without having to open each one. Thing is, I can't remember what I used except it was either a free or very cheap photo-editing suite now long gone!

What I am trying to do is a hard copy of the fonts so that when I use Photoshop and such like, I don't have to scroll through the hundreds of fonts trying to remember what each looks like.

Any ideas please?

  I am Spartacus 14:20 27 Oct 2007

It used to be a macro in an earlier version of Office (Office 95?). There's a guide click here to recreating it.

  I am Spartacus 14:21 27 Oct 2007

Microsoft version click here;en-us;209205

  tobyb121 14:23 27 Oct 2007

This sounds very complicated, but it isn't as complicated as it sounds, first open up microsoft office word, it can be done on 2003, but I am using 2007 so these are the only instructions I can provide for the moment.
Press the office button.
Go to word options(bottom right).
Check the box that says show developer ribbon and then OK.
You will then see developer in the ribbon at the top. Click on it and go into "macros".
Type in a name for it at the top, like font, then click create.
This will open up Visual basic, then just copy and paste this:

On Error Resume Next

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Font.Size = 12

For Each strFont in objWord.FontNames
If strFont <> "Courier" Then
objSelection.Font.Name = strFont
objSelection.TypeText strFont & _
": Sample"
End If

Then you will see a small play button at the top of your screen, press this and it will make a new document listing your fonts.
This script can also be customized for example, at this line:

objSelection.TypeText strFont & _
": Sample"

You can change Sample to anuything you want.
Hope this helps, tobyb

  I am Spartacus 14:24 27 Oct 2007

Link failed try click here

  fazer 15:23 27 Oct 2007

Thanks guys - sorted!

This thread is now locked and can not be replied to.

Elsewhere on IDG sites

Honor 9 Lite review

How Social Media has Propelled Political Graphic Design and Art in the Last Decade

The best kids apps for iPhone & iPad 2018

HomePod d’Apple : date de sortie, prix et fiche technique