Discussion :

[xanatos]

Salut tout le monde,

J'ai chopé du source sur le net qui permettrait d'imprimer le contenu d'un RichTextBox et qui dit ça :

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
18
19
20
21
22
With Printer
 
            ' Police d'impression
            .Font = "Times New Roman"
 
            ' taille de police d'impression
            .FontSize = 10
 
            'qualité d'impression 300 DPI
            .PrintQuality = 300
 
            'position du curseur
            .CurrentX = 1000
 
            'au début de l'impression
            .CurrentY = 1000
 
        End With
 
        Printer.Print (me.RichTextBox1.Text); PrinterPage
 
        Printer.EndDoc()

===>seulement printer est souligné, et qd je pose ma souris dessus, on me dit : le nom printer n'est pas déclarer... donc j'aurais voulu savoir en tant que quoi il fallait le déclarer?

aussi le point virgule juste avant printerpage est aussi souligner est on me dit caractère non valide ... que dois-je faire, est-ce un bon source?

Merci!

[Pol63]

c'est du code vb6 et non vb.NET

pour faire la meme chose en .NET c'est à peine plus compliqué
il faut faire un new printerdocument je crois (system.drawing.print surement)
et dans l'évènement print mettre le code d'impression


enfin vous avez l'air d'un débutant, donc je vous conseille de lire http://plasserre.developpez.com/vsommair.htm
qui d'ailleurs comporte une partie sur l'impression

[xanatos]

Bon j'ai suivi son exemple apres avoir installé le PowerPack et en continuant a utiliser du code VB6...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
 
 
Dim pr As New Printer        'Instanciation de l'imprimante par défaut
 
Dim pFont As New Font("Arial", 14)    'Une nouvelle font
 
pr.Font = pFont
 
pr.Print("This text will print in 14 point ")  'Texte à imprimer
 
pr.EndDoc()    'fin, on lance l'impression

... et ca marche...


Maintenant j'aimerai bien savoir comment on fait pour imprimer le contenu d'une RichTextBox.

Si qqn le sait, ben jveux bien le savoir!

Thanks!

[Pol63]

super

dis moi donc l'utilité d'utiliser vb.net pour développer en vb6 ?????

[xanatos]

Bon je t'ai écouter ... j'ai utilisé le code VB.net qui était dans le lien que tu m'as filé et que voici :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Imports System.Drawing.Printing
 
 
 
Public Class Form1
 
Inherits System.Windows.Forms.Form
 
 
 
Dim pd As  New PrintDocument 'Assumes the default printer
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    AddHandler pd.PrintPage, AddressOf Me.Pd_PrintPage
 
End Sub
 
 
Private Sub Pd_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
 
e.Graphics.DrawString("Hello", New Font("Arial", 80, FontStyle.Bold),   Brushes.Black, 150, 125)
 
End Sub
 
 
Private Sub ButtonPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrint.Click
 
    pd.Print()
 
End Sub
 
 
 
End Class

Bon avec ce code j'arrive donc à imprimer "Hello" , mais le but serait d'imprimer le contenu d'une RichTextBox ... et la je suis coincé!

Et ce que tu peux m'en dire un peu plus stp?

Merci et @+

[Pol63]

tu veux dire en couleur et avec les styles ? ou juste le texte ?