richtextbox .rtf text formating

[ZanM]

'Ok maybe i'm doing this wrong...
rtfFormatedText.SaveFile app.path_ & "MyFile.rtf",0

'ok that file had diferent fonts and
'colored text and ........

rtfOpener.LoadFile app.path_
& "MyFile.rtf",0
'now my file is a plain text file the
'font is whatever the rtfBox font is
'no color no nothing
'It turns into a word97 file and word
'doesn't see it either
'anybody clue me in as to why

[Ice]

try saving like this:

Dim FileName As String
Dim f As Integer
Dim FileInfoSave As String

dlgCommonDialog.ShowSave
FileName = dlgCommonDialog.FileName

FileInfoSave = rch_Text.TextRTF

f = FreeFile
Open FileName For Output As #f
Print #f, FileInfoSave
Close #f

However, I did try this and it works:

Private Sub Form_Load()
With RichTextBox1
' current font MS Sans Serif
.Font = "Olde English"
.SaveFile "d:\Rich.rtf", 0
End With
End Sub

worked for me

[This message has been edited by Ice (edited 11-17-1999).]

[ZanM]

Hey Ice in the second are you changing the font from MS Sans Serif to Old English?