Working with different fonts

[Guest]

Is it possible to have a list box in a form that lists the fonts on a PC and
then allow the user to select a font that will be used in a report. I want
to be able to allow the user to select the font they will use in their
report.

If this is possible, can you give me a leg up on how to make this happen?

 

[Stephen Lebans]

See:
http://www.lebans.com/fontcolordialog.htm
ChooseFontColorDialog.zip is a database containing functions showing how to
call the API Font and Color Dialogs.

NEW - Jan. 28/2000 The Font and Color Dialogs are very easy to call. Here is
the code behind the Command Button on the sample Form. For this sample we
pass a TextBox that the function fills in with the Name and Size of the Font
selected by the user.

Private Sub CmdChooseFont_Click()
Dim lngRet As Boolean
' Pass the TextBox Control to the function
lngRet = test_DialogFont(Me.textCtl)
End Sub

Based on original code written by Terry Kreft.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.