Discussion :

[gastoncs]

Bonsoir,

j'ai une textbox qui m'affiche des données et ainsi j'imprime ma textbox, pour une copie pas de soucis mais lorsque je fait en faire plusieurs, je n'en ai que une qui s'imprime malgré ma démarche, regardé :

les variables de classe et instantation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Dim pd As New PrintDocument
    Dim dllg As New PrintPreviewDialog
    Dim ps As New PrinterSettings
    Dim nbr_impression As Short = 0

au chargement de ma fenêtre le handler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler pd.PrintPage, AddressOf Me.Pd_PrintPage

La methode pd.printpage qui définit ce que je veux imprimer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Private Sub Pd_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
 
        e.Graphics.DrawString("Donnée du client", New Font("Times New Roman", 14, FontStyle.Bold), Brushes.Black, 218, 85)
        e.Graphics.DrawString(TextBox1.Text, New Font("Times New Roman", 10, FontStyle.Bold), Brushes.Black, 125, 145)
 
    End Sub

Au clic d'un bouton je lance l'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            ps.Copies = nbr_impression 'définit le nbr d'impression
            pd.Print() 'imprime le ticket

Le nombre d'impression est définit par l'utilisateur à l'aide d'une textbox, grâce à un point d'arrêt j'ai bien constaté que la variable nbr_impression prend la valeur définit par l'utilisateur.

Mais je ne comprend pas qu'il n'y a que une feuille qui sorte !

[chrismonoye]

Bonjour,
dans le code fourni, on ne voit pas si le document à imprimer, accède aux paramètres d'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pd.PrinterSettings = ps

[gastoncs]

j'ai essayé mais cela ne donne rien toujours une seule impression?

[gastoncs]

Même en réalisant une boucle ca ne fonctionne pas, mais pourquoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim I As Integer
        For i = 0 To nbr_impression
            pd.Print()
        Next i

quelqu'un a déjà rencontré ce probléme ?

[hunteshiva]

Apparemment oui
http://www.developpez.net/forums/d31...printdocument/