Printing Fonts

  fazer 14:01 27 Oct 07

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 07

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 07

Microsoft version click here;en-us;209205

  tobyb121 14:23 27 Oct 07

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 07

Link failed try click here

  fazer 15:23 27 Oct 07

Thanks guys - sorted!

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

Sniper Elite 4 review: Headshotting Nazis has never felt so good

1995-2015: How technology has changed the world in 20 years

Framestore’s haunting post-WWII title sequence for new BBC series SS-GB

New iOS 11 release date rumours UK | new features coming to Siri, FaceTime, Messages and Video