RTF impression et presse papier

Question

Bonjour,

J’ai cree 2 RichtText box. Le premier contient une en-tete de document en RTF. Le second contient le corps du document.
Pour imprimer l’ensemble de ces 2 RTFs je copie le contenu du premier RTF au debut du second en utilisant le presse papier.
Ca fonctionne parfaitement sous XP, mais pas sous 98 (le formatage du RTF apparait dans le texte) : Comment faire ?

        RichTextEntete.SelStart = 0 ‘ contient l’en-tete
        RichTextEntete.SelLength = Len(RichTextEntete.text)
        Clipboard.Clear
        Clipboard.SetText RichTextEntete.TextRTF, vbCFRTF

        RichTextBoxImp.SelStart = 0 ‘ contient le corps du document
        RichTextBoxImp.SelLength = 0
        RichTextBoxImp.SelText = Clipboard.GetText(vbCFRTF)

        'Imprime le contenu du Richtextbox
        RichTextBoxImp.SelStart = 0
        RichTextBoxImp.SelLength = Len(RichTextBoxImp.text)
        RichTextBoxImp.SelPrint Printer.hDC 'Envoie le texte du Richtextbox à l'imprimante
        Printer.EndDoc 'Ferme la session d'impression

cs_Christian · Answer

salut,

j'ai eu le même problème.
Il faut copier entre les deux en format RTF. Ne passe pas par le clipboard.

remplace ça:
RichTextBoxImp.SelText = Clipboard.GetText(vbCFRTF)

par ça:
RichTextBoxImp.selrtf = RichTextEntete.selrtf

Christian.

cs_globule · Answer

Ca marche, merci Christian :)

RTF impression et presse papier

2 réponses

Discussions similaires