Imprimer listbox vb.net [Fermé]

Signaler
-
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
-
Bonjour a tous,

je programme une application en vb.net.

Je souhaite ensuite imprimer le contenue d'une listbox. J'ai trouvé sur internet, le code suivant.

Le seule problème c'est que visual studio indique PrintDialog1 n'est pas déclaré.

Je ne sait pas comment le déclarer.

Par avance, je vous en remercie



code :
   ' Declaration de l'objet PrintDocument.
Private WithEvents docToPrint As New Printing.PrintDocument

' Cette méthodes envoient les propriétés sur l'objet PrintDialog
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Bimprimer.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

' Le PrintDialog imprimera le document en traitant l'
'événement PrintPage du document.
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 = ListBox1.Text
Dim printFont As New System.Drawing.Font _
("Arial", 35, System.Drawing.FontStyle.Regular)

' Montre le contenu
e.Graphics.DrawString(text, printFont,
System.Drawing.Brushes.Black, 10, 10)
End Sub

3 réponses

Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
634
Bonjour,

PrintDialog1 est un outil au même titre que Button que tu trouveras dans le groupe d'outils Impression!
merci ta réponse. je regarde sa tout de suite
J'ai testé et ça marche bien. Merci.

Il y a une erreur au niveau du
"listbox1.text" 
qui ne donne rien.

La page créé est donc blanche.

Je sait comment faire et Je posterai la solution ici demain!
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
634
Tu trouveras tout ce qui concerne l'impression en VB.Net. Dans le chapitre imprimer des contrôles particuliers, tu auras ta réponse pour ta listBox:

http://docplayer.fr/13029621-Imprimer-avec-vb-net-2005-1-introduction-3-concepts-generaux-3.html

Bon courage

@+ Le Pivert