D
dynamicpool
I am using the Lebans RTF in a report which is written from code. I need to
format the text in code and have been fooling around with
Dim sNormalText As String
Dim sBoldText As String
Dim sItalicText As String
sNormalText = "This is normal text."
sBoldText = "This is bold text."
sItalicText = "This is italic text."
Me.rtfRecommend.RTFtext = "{\rtf" & _
"\pard \b " & sBoldText & "\b0\par" & _
"\pard\ " & sNormalText & "\par" & _
"\pard \i " & sItalicText & "\i0\par}"
This seems to be working, except the default font for the control seems to
be System, and I am having a a devil of a time trying to change it in code.
System does not have regular as a font choice.
format the text in code and have been fooling around with
Dim sNormalText As String
Dim sBoldText As String
Dim sItalicText As String
sNormalText = "This is normal text."
sBoldText = "This is bold text."
sItalicText = "This is italic text."
Me.rtfRecommend.RTFtext = "{\rtf" & _
"\pard \b " & sBoldText & "\b0\par" & _
"\pard\ " & sNormalText & "\par" & _
"\pard \i " & sItalicText & "\i0\par}"
This seems to be working, except the default font for the control seems to
be System, and I am having a a devil of a time trying to change it in code.
System does not have regular as a font choice.