Impression contenu RichTextBox.

Version imprimable

Bonjours,

je souhaiterai imprimer le contenu de ma richtextbox mais cela ne fonctionne pas. Je recherche des exemple sur le net mais je n'y comprend rien. Mis à part cet exemple, mais qui imprime une page blanche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim printDoc As New Printing.PrintDocument()
 
        printDoc.DocumentName = rtbTexte.Text
 
        PrintDialog1.Document = printDoc
        PrintDialog1.AllowSelection = True
        PrintDialog1.AllowSomePages = True
 
        If (PrintDialog1.ShowDialog() = DialogResult.OK) Then
 
            printDoc.Print()
        End If
    End Sub

D'avance merci

19/01/2015, 22h36
clementmarcotte

Bonjour,

Tu peux t'inspirer de ce sujet:

http://www.developpez.net/forums/d10...ox-format-rtf/

et/ou de cet article microsoftien:

https://support.microsoft.com/kb/811401?wa=wsignin1.0

Ok merci por la réponse,
je vais y jeter un oeil :)

EDIT : par contre il me demande ou sauvegarder le fichier maintenant et ne lance pas l'impression. J'ai utilisé le code Microsoftien en créant le user control. C'est comme si il imprime dans un document.

EDIT 2 :

bon j'ai trouver ce système afin d'imprimer le contenu de ma richtextbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        PrintDialog1.Document = PrintDocument1
        PrintDialog1.AllowSelection = True
        PrintDialog1.AllowSomePages = True
 
        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PrintDialog1.Document.Print()
        End If
    End Sub
 
    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(RichTextBox1.Text, New Font("Arial", 11, FontStyle.Bold), Brushes.Black, 150, 125)
    End Sub