1 pièce(s) jointe(s)
Impression d'une ligne de ListView en Visual Studio 2017
Bonjour à tous et à toutes, je suis débutant en programmation. Je réalise un application de gestion d'archive. J'ai une listview ou je peux voir mes données depuis ma base de donnée (Mysql Wampserver). Mon problème j'ai des difficultés pour imprimer une ligne de ma listview a partir d'un bouton imprimer.
voici mon code que j'ai derrière mon bouton imprimer:
Code:
1 2
| Dim printer As New ClassPrint(Me.ListViewIndividus.Items(0).IndexOf)
printer.printdoc() |
Aidez moi svp avec de ! Merci d'avance pour vos reponses:plusser:
2 pièce(s) jointe(s)
CA FONCTIONNE BIEN AVEC DATAGRIDVIEW
Merci infiniment pour votre aide. j'ai trouvé un peu difficile ce que vous m'avez suggérer mais finis par trouver quelque chose. je vais partagé peut être que ça va intéressé quelqu'un autre. j'ai utilisé un RichTexBox pour affichage l’état d'impression
lorsque je clique sur mon bouton 'Rapport'
Pièce jointe 508803
et un autre bouton que j'ai nommé 'Imprimé'. Lorsque je clique sur le bouton Imprimer j'ai ça
Pièce jointe 508822
code derrière le bouton 'Rapport'
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub BtnRappot_Click(sender As Object, e As EventArgs) Handles BtnRappot.Click
RichTextBox1.Clear()
RichTextBox1.AppendText(vbTab + "DIRECTION DE L'ENVIRONNEMENT ET DU DEVELOPPEMENT DURABLE" + vbNewLine)
RichTextBox1.AppendText("******************************************************************************************" + vbNewLine)
RichTextBox1.AppendText("Date inhumation :" + vbTab + vbTab + Date_d_inhumationTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Numéro :" + vbTab + vbTab + vbTab + NumeroTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Nom :" + vbTab + vbTab + vbTab + vbTab + NomTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Prénoms :" + vbTab + vbTab + vbTab + PrénomTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Age :" + vbTab + vbTab + vbTab + vbTab + AgeTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Sexe :" + vbTab + vbTab + vbTab + vbTab + SexeTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Numéro de quittance :" + vbTab + vbTab + N_quittanceTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Numéro de pemis :" + vbTab + vbTab + N_permisTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Carré :" + vbTab + vbTab + vbTab + vbTab + CarreTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Emplacement :" + vbTab + vbTab + vbTab + EmplacementTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Type Terrain :" + vbTab + vbTab + vbTab + Type_de_terrainTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Durrée de concession :" + vbTab + vbTab + Durre_de_concessionTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Entreprise :" + vbTab + vbTab + vbTab + EntrepriseTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Renouvellement :" + vbTab + vbTab + RenouvellementTextBox.Text + vbNewLine)
RichTextBox1.AppendText("Reservation :" + vbTab + vbTab + vbTab + ReservationTextBox.Text + vbNewLine)
RichTextBox1.AppendText("******************************************************************************************" + vbNewLine)
RichTextBox1.AppendText(vbTab + vbTab + "DISTRICT AUTONOME D'ABIDJAN")
End Sub |
code derrière le bouton 'Imprimer'
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub BtnImprimer_Click(sender As Object, e As EventArgs) Handles BtnImprimer.Click
Try
Dim PrintDoc As New PrintDocument
AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
PrintDoc.Print()
PrintPreviewDialog1.ShowDialog()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Beep()
End Try
End Sub |
Passez une bonne soiré