Rich Text Box - Lebans

[NB]

Hi,
Is it possible to set the default font size and name, etc for the
Leban's Rich Text box. I am using the latest version 1.5 but the
following code does not work (but also produces no errors.)

Dim x As RTF2
Dim fnt As New StdFont

Set x = Me!rchtxtCalendar.Object
With fnt
.Name = "arial"
.Size = 44
.Italic = False
.Bold = False
.Strikethrough = False
.Underline = False
End With

set x.Font = fnt
Thanks
Nigel

[Stephen Lebans]

Sorry, that Prop has not been hooked up yet. I'll add it to the next
release.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"NB" <nb****@aol.com> wrote in message
news:54**************************@posting.google.c om...

Hi,
Is it possible to set the default font size and name, etc for the
Leban's Rich Text box. I am using the latest version 1.5 but the
following code does not work (but also produces no errors.)

Dim x As RTF2
Dim fnt As New StdFont

Set x = Me!rchtxtCalendar.Object
With fnt
.Name = "arial"
.Size = 44
.Italic = False
.Bold = False
.Strikethrough = False
.Underline = False
End With

set x.Font = fnt
Thanks
Nigel

[Stephen Lebans]

I hooked up the SetFont prop tonight. It now accepts a StdFont object as
the input as per your example. Some more testing is required before
release but I will try to put the new version on my site tomorrow night
or Wed at the latest.
:-)
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"NB" <nb****@aol.com> wrote in message
news:54**************************@posting.google.c om...

Hi,
Is it possible to set the default font size and name, etc for the
Leban's Rich Text box. I am using the latest version 1.5 but the
following code does not work (but also produces no errors.)

Dim x As RTF2
Dim fnt As New StdFont

Set x = Me!rchtxtCalendar.Object
With fnt
.Name = "arial"
.Size = 44
.Italic = False
.Bold = False
.Strikethrough = False
.Underline = False
End With

set x.Font = fnt
Thanks
Nigel

[NB]

Thanks for your quick responses. Its a great control.