Printing a list of fonts

[Barb]

I am running XP on my system and I was told there was a
way you could print a sample of all the fonts on your
system. Not just the names of the fonts, but an actual
sample of each font.

I know I can click on the ttf file and print each page,
but is there a way to do them all at once? With just over
2000 fonts it would go much quicker this way.

Thanks in advance!

Barb

[Helge Selstø]

On Tue, 22 Apr 2003 05:35:23 -0700, "Barb" >
wrote:

>I am running XP on my system and I was told there was a
>way you could print a sample of all the fonts on your
>system. Not just the names of the fonts, but an actual
>sample of each font.
>
>I know I can click on the ttf file and print each page,
>but is there a way to do them all at once? With just over
>2000 fonts it would go much quicker this way.
>
>Thanks in advance!
>
>Barb

If you have word installed, you can use this macro:

Sub fontzkwik()
With Selection
For Each afont In FontNames
.Font.Name = afont
.TypeText afont & vbTab
.TypeText
"AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYy ZzÆæØøÅå 0123456789
@#$%&?!*" & vbCr
Next afont
.WholeStory
.ConvertToTable Separator:=wdSeparateByTabs
.Columns(1).Select
.Font.Name = "Times new roman"
.Sort
End With
End Sub
--
Helge S
http://home.chello.no/~selsto/

[Barb]

Helge,

Thank you for the macro.

I know I am going to sound stupid, but what do I do with=20
it?=20

Thanks!

Barb

>-----Original Message-----
>On Tue, 22 Apr 2003 05:35:23 -0700, "Barb"=20
>
>wrote:
>
>>I am running XP on my system and I was told there was a=20
>>way you could print a sample of all the fonts on your=20
>>system. Not just the names of the fonts, but an actual=20
>>sample of each font.=20
>>
>>I know I can click on the ttf file and print each page,=20
>>but is there a way to do them all at once? With just=20
over=20
>>2000 fonts it would go much quicker this way.
>>
>>Thanks in advance!
>>
>>Barb
>
>If you have word installed, you can use this macro:
>
>Sub fontzkwik()
>With Selection
> For Each afont In FontNames
> .Font.Name =3D afont
> .TypeText afont & vbTab
> .TypeText
>"AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYy Zz=C6=E6=D8=F8
=C5=E5 0123456789
>@#$%&?!*" & vbCr
> Next afont
> .WholeStory
> .ConvertToTable Separator:=3DwdSeparateByTabs
> .Columns(1).Select
> .Font.Name =3D "Times new roman"
> .Sort
>End With
>End Sub
>--=20
>Helge S
>http://home.chello.no/~selsto/
>.
>

[Helge Selstø]

On Tue, 22 Apr 2003 07:28:17 -0700, "Barb" >
wrote:

>Helge,
>
>Thank you for the macro.
>
>I know I am going to sound stupid, but what do I do with
>it?
>
>Thanks!
>
>Barb
Open Word, goto Tools, Visual Basic editing and rightclic on this
document, add code, and run the macro.

--
Helge S
http://home.chello.no/~selsto/

[Don MacDougall]

"Barb" > wrote in message
...
> I am running XP on my system and I was told there was a
> way you could print a sample of all the fonts on your
> system. Not just the names of the fonts, but an actual
> sample of each font.
>
> I know I can click on the ttf file and print each page,
> but is there a way to do them all at once? With just over
> 2000 fonts it would go much quicker this way.
>
> Thanks in advance!
>
> Barb
>


http://www.karenware.com/powertools/powertools.asp

Download Font Explorer.

Don