Printable View
'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
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).]
Hey Ice in the second are you changing the font from MS Sans Serif to Old English?