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

Dernière édition par Skysofren (17/07/08 04:57:11)

Un petit si je vous aide c'est super sympa . Merci d'avance