By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,302 Members | 3,621 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,302 IT Pros & Developers. It's quick & easy.

A97 Font / Report question

P: n/a
MLH
This is NOT of paramount importance. I'm sure there are others
whose questions are mission critical. Mine is not.

I have always wanted a report that looked like this...

Here is some sample text in Alba.
Here is some sample text in Alba Matter.
Here is some sample text in Alba Super.
....
Here is some sample text in Times New Roman
....
Here is some sample text in ZapfDingbats BT
Here is some sample text in ZapfEllipt BT
Here is some sample text in ZapfEllipt BT

Of course, what I want is to recurse through all the available
font types I have, printing a line in each of the fonts. This is
nothing more than to have a quick glance at printed fonts,
as they look right out-a-my printer tray.

Thought maybe one of you might have done this before.
Nov 13 '05 #1
Share this Question
Share on Google+
2 Replies


P: n/a
On Fri, 12 Aug 2005 09:31:06 -0400, MLH wrote:
This is NOT of paramount importance. I'm sure there are others
whose questions are mission critical. Mine is not.

I have always wanted a report that looked like this...

Here is some sample text in Alba.
Here is some sample text in Alba Matter.
Here is some sample text in Alba Super.
...
Here is some sample text in Times New Roman
...
Here is some sample text in ZapfDingbats BT
Here is some sample text in ZapfEllipt BT
Here is some sample text in ZapfEllipt BT

Of course, what I want is to recurse through all the available
font types I have, printing a line in each of the fonts. This is
nothing more than to have a quick glance at printed fonts,
as they look right out-a-my printer tray.

Thought maybe one of you might have done this before.


Can you do it using Word?

Create a new Word document.
Click on Tools + Macro + Record New Macro

When the new macro dialog opens write
ListFont
as the Macro Name.

Click OK.
Type any few characters then click the Stop Macro button.

Click on Tools + Macro
Select the ListFont macro + Edit

Delete ALL the existing text of the macro.
Copy and paste the following code:

Sub ListFont()
'
' Will display all fonts available on your computer
'
Dim ListFont as Variant
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each ListFont in FontNames
With Selection
.Font.Name = "Arial"
.Font.Size = 12
.TypeText ListFont
.TypeText Text:=Chr(11)
.Font.Name = ListFont
.TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.TypeText Text:=Chr(11)
.TypeText "abcdefghijklmnopqrstuvwxyz"
.TypeText Text:=Chr(11)
.TypeText Text:="1234567890!@#$%^&*()"
.TypeText Text:=Chr(11)
.InsertParagraphAfter
.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next ListFont
Selection.WholeStory
Selection.Sort
Selection.HomeKey Unit:=wdStory
End Sub
=========

Save the macro change and exit back to your document.
Click Tools + Macro
Select the ListMacro
Click Run.

--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
Nov 13 '05 #2

P: n/a
MLH
Word, huh? Didn't occur to me. I like
your solution. Am gonna give it a try.
I wish it had been an A97 solution, but
what the hey - this will definitely do the
trick.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Can you do it using Word?

Create a new Word document.
Click on Tools + Macro + Record New Macro

When the new macro dialog opens write
ListFont
as the Macro Name.

Click OK.
Type any few characters then click the Stop Macro button.

Click on Tools + Macro
Select the ListFont macro + Edit

Delete ALL the existing text of the macro.
Copy and paste the following code:

Sub ListFont()
'
' Will display all fonts available on your computer
'
Dim ListFont as Variant
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each ListFont in FontNames
With Selection
.Font.Name = "Arial"
.Font.Size = 12
.TypeText ListFont
.TypeText Text:=Chr(11)
.Font.Name = ListFont
.TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.TypeText Text:=Chr(11)
.TypeText "abcdefghijklmnopqrstuvwxyz"
.TypeText Text:=Chr(11)
.TypeText Text:="1234567890!@#$%^&*()"
.TypeText Text:=Chr(11)
.InsertParagraphAfter
.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next ListFont
Selection.WholeStory
Selection.Sort
Selection.HomeKey Unit:=wdStory
End Sub
=========

Save the macro change and exit back to your document.
Click Tools + Macro
Select the ListMacro
Click Run.


Nov 13 '05 #3

This discussion thread is closed

Replies have been disabled for this discussion.