Discussion :

[kazuzu]

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

[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

[kazuzu]

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 :

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
 
        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