Imprimer un RichtextBox????

Question

Bonjour a tous !
je voudrais savoir comment on peu imprimer un richtextbox avec gras, italique, souligné, centré a certain endroit ou avec de diférentes polices a certain a=endroit???
avec la marge aussi
merci de répondre

ps: pouvez vous écrire le code svp??

BasicInstinct · Answer

Moi je fais comme ca et ca marche plutot bien

CommonDialog1.Filter = "Fichier texte (*.txt)|*.txt|Document Word (*.doc)|*.doc"
CommonDialog1.ShowSave
  If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
      If Right(CommonDialog1.FileName, 3) = "doc" Then
        Print #1, RichTextBox1(SSTab1.Tab).TextRTF
      Else
        Print #1, RichTextBox1(SSTab1.Tab).Text
      End If
    Close #1
  End If

BasicInstinct · Answer

mon copié-collé fut trop rapide :)

dans mon exemple, les richtextbox sont indexé, donc

CommonDialog1.Filter = "Fichier texte (*.txt)|*.txt|Document Word (*.doc)|*.doc"
CommonDialog1.ShowSave
  If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
      If Right(CommonDialog1.FileName, 3) = "doc" Then
        Print #1, RichTextBox1.TextRTF
      Else
        Print #1, RichTextBox1.Text
      End If
    Close #1
  End If

ZeViRuS · Answer

ca marche pas!!

BasicInstinct · Answer

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.TextRTF)

RichTextBox1.SelPrint Printer.hDC

dans le cas ou tu as 1 seule imprimante.
sinon faut utiliser un commonDialog pour selectionner l'imprimante

Imprimer un RichtextBox????

4 réponses

Discussions similaires