Allow user to dynamically choose font for each line...

[MushMouse]

I have a field called cmbFonts & I would like to populate it with the font values that are valid for the given PC. It will show up on a form as a combo box & the users can then choose the font they would like stored with the given record. Does anyone know how to do this?

Thanks!

 

[genomon]

Well... not exactly. Would the common dialog control be an option for you?

Always remember that you're unique. Just like everyone else.

 

[PWise]

set refance to word

add this code to for startup

Dim wo As Word.Application
Dim j As Integer
Set wo = CreateObject("Word.Application")
For j = 1 To FontNames.Count
Me.Combobox.AddItem FontNames(j)
Next j

 

[TheAceMan1]

How are ya MushMouse . . .

Forgive me, but I see no point in doing this! Can you explain? . . .

See Ya! . . . . . .

Be sure to see thread181-473997