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 : Sélectionner tout - Visualiser dans une fenêtre à part
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