Results 1 to 3 of 3

Thread: richtextbox .rtf text formating

  1. #1

    Thread Starter
    Addicted Member ZanM's Avatar
    Join Date
    Oct 1999
    Location
    The here and now.
    Posts
    191

    Post

    '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

  2. #2
    Junior Member
    Join Date
    Oct 1999
    Posts
    16

    Post

    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).]

  3. #3

    Thread Starter
    Addicted Member ZanM's Avatar
    Join Date
    Oct 1999
    Location
    The here and now.
    Posts
    191

    Post

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width