Bonjour
je m'adresse à vous car cela fait des jours que je bloque sur un code.
je vous explique :
je veux imprimer le contenu d'un richtextbox.
voici le code que j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click ' autorise le choix de la page d'impression PrintDialog1.AllowSomePages = True ' montre le bouton d'aide PrintDialog1.ShowHelp = True ' Fixe les propriétés du documents (impératif) PrintDialog1.Document = docToPrint Dim result As DialogResult = PrintDialog1.ShowDialog() ' Si le résultat est bon on imprime If (result = DialogResult.OK) Then docToPrint.Print() End If End Sub
j'arrive avec ce code à imprimer ma page mais avec un seul font (Arial", 10, System.Drawing.FontStyle.Regular).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub document_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _ Handles docToPrint.PrintPage 'seul modification j'ai mis TextBox1.Text (puisque j'imprime le 'texte) Dim text As String = TextBox2.Text Dim printFont As New System.Drawing.Font _ ("Arial", 10, System.Drawing.FontStyle.Regular) ' Montre le contenu e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 10, 10) End Sub
le problème c'est que mon richtextbox est composé de plusieurs font ( Gras, Souligné, Centré , différente tailles)
y a t'il une possibilité de gérer tout cela ou je dois changer complètement de méthode (je veux éviter de passer par crystalreaport).
Merci d'avance.
Partager