2008-07-17T04:56:50Z FluxBB http://www.oleoo.com/topic261168.html C'est bon finalement j'ai réussi lol :p. En fait j'ai créer un compteur invisible qui sera charger de compter le nombre de ticket imprimé ;). Skysofren 2008-07-17T04:56:50Z http://www.oleoo.com/post3016378.html#p3016378 Salut à tous, Ba voila je vous explique le problème je suis entrain de faire un logiciel et dans le logiciel je doit faire une impression de Ticket. Jusqu'a maintenant je suis arrivé à imprimer un seul et unique Ticket mais dans le logiciel j'ai un TextBox apellé "TBnbrticket" qui me permet d'entrer le nombre de ticket désiré. Ma question serait comment coder mon bouton d'impression afin que si dans "TBnbrticket" j'entre 2 l'imprimante m'imprime 2 ticket et non un seul. Une partie de mon code : Private Sub imprimer_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimer.Click 'Impression du Ticket Me.PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 'Définitions des polices, Interlignes etc... Dim PoliceTitre As New Font("Arial", 20, FontStyle.Bold) Dim PoliceG As New Font("Arial", 12, FontStyle.Bold) Dim PoliceS As New Font("Arial", 11) Dim PoliceTarif As New Font("Arial", 14, FontStyle.Bold) Dim PolicePrix As New Font("Arial", 22, FontStyle.Bold) Dim PoliceDescription As New Font("Arial", 10, FontStyle.Bold) Dim PoliceEntreprise As New Font("Arial", 6, FontStyle.Bold) Dim XPos, YPos As Single Dim Interligne As Single Dim ChaineImpr As String = "" Dim MyGr As Graphics = e.Graphics Interligne = MyGr.MeasureString(Me.titre.Text.ToString, PoliceG).Height 'Impression de la partie Billet MyGr.DrawString("Titre", PoliceTitre, Brushes.Black, XPos, YPos) MyGr.DrawString(Now, PoliceS, Brushes.Black, XPos, YPos + 2 * Interligne) MyGr.DrawString("Tarif", PoliceTarif, Brushes.Black, XPos, YPos + 3 * Interligne) MyGr.DrawString(prixafiche.Text + " €uro", PolicePrix, Brushes.Black, XPos, YPos + 4 * Interligne) MyGr.DrawString(ComboBox1.Text, PoliceDescription, Brushes.Black, XPos, YPos + 6 * Interligne) MyGr.DrawString("N° Ticket :" + number.Text, PoliceDescription, Brushes.Black, XPos, YPos + 7 * Interligne) MyGr.DrawString("************************", PoliceDescription, Brushes.Black, XPos, YPos + 8 * Interligne) MyGr.DrawString("Copyright", PoliceEntreprise, Brushes.Black, XPos, YPos + 9 * Interligne) MyGr.DrawString("Copyright", PoliceEntreprise, Brushes.Black, XPos, YPos + 10 * Interligne) End Sub Merci d'avance pour l'aide ;) Skysofren 2008-07-16T18:48:26Z http://www.oleoo.com/post3015992.html#p3015992