http://www.oleoo.com/topic261168.html The most recent posts in [Résolu][VBNET] Problème d'impression. Thu, 17 Jul 2008 04:56:50 +0000 FluxBB http://www.oleoo.com/post3016378.html#p3016378 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é ;). dummy@example.com (Skysofren) Thu, 17 Jul 2008 04:56:50 +0000 http://www.oleoo.com/post3016378.html#p3016378 http://www.oleoo.com/post3015992.html#p3015992 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 ;) dummy@example.com (Skysofren) Wed, 16 Jul 2008 18:48:26 +0000 http://www.oleoo.com/post3015992.html#p3015992