gerer le bouton "annuler impression" de windows dans un programme vb nRésolu

Question

je souhaiterai le "bout de code" qui me permette de vider réellement l'impression en cour (pour l'instant il ne fait que la suspendre si je clique sur annuler). Je suis en train de me noyer sous les lignes de codes que je  ne parviens pas à exploiter ni même comprendre.

Voici le code qui pose problème  (pas de gestion du bouton annuler).

        Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

If PageNumber > 0 Then
            'MsgBox(PageNumber)
            e.Graphics.DrawString("ART: " & ReferenceArt, New Font("Impact", 16, FontStyle.Bold), Brushes.Black, 30, 20) '1er nb marge gauche 2e marge haute
            e.Graphics.DrawString("Désignation", New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 42, 80) ' Désignation:
            e.Graphics.DrawString(DesignationArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 40, 100) '
            e.Graphics.DrawString("QTE :" & QuantiteArt, New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 30, 138) '
            e.Graphics.DrawString(PackArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 30, 165) ' & PageNumber() 'ici on indique le nombre d'impression restante
            PageNumber -= 1 'on retire une impression
            e.HasMorePages = (PageNumber > 0)
        End If

End Sub


Private Sub Imprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprime.Click
PrintDocument1.Print()
End Sub

Merci par avance pour votre aide.

												bfb														<img src="/imgs2

cs_Le Pivert · Answer

Bonjour,

tu as déjà posé cette question ici:

https://codes-sources.commentcamarche.net/forum/affich-10102305-gerer-annuler-impression 

vu que tu n'as pas trouvé de réponse te satisfaisant, pourquoi ne pas faire manuellement un clic dans la barre de tâche sur l'icône de ton imprimante pour supprimer le document en cours?

Sinon voir ces sites:

https://www.gladir.com/CODER/VBNETWINDOWS/abortdoc.htm

https://codes-sources.commentcamarche.net/source/17708-l-api-abortdoc-permet-d-annuler-l-impression-en-cours-d-un-document

mais je trouve cela bien compliqué alors que tu as une solution toute simple. A toi de voir!

cs_bfb · Answer

Voici ce que j'ai trouvé ça supprime l'impression mais elle reste encore en mémoire et reprend dès que l'on clique de nouveau sur imprimer
 
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
         'c'est ici que tout ce joue
         If e.Cancel = True Then
            e.HasMorePages = 0
            PageNumber = 0
            e.HasMorePages = False
            Refresh()
            Exit Sub
         End If

If PageNumber > 0 Then
             e.Graphics.DrawString("ART: " & ReferenceArt, New Font("Impact", 16, FontStyle.Bold), Brushes.Black, 30, 20) '1er nb marge gauche 2e marge haute
            e.Graphics.DrawString("Désignation", New Font("Arial", 8, FontStyle.Regular), Brushes.Black, 42, 80) ' Désignation:
            e.Graphics.DrawString(DesignationArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 40, 100) '
            e.Graphics.DrawString("QTE :" & QuantiteArt, New Font("Arial", 16, FontStyle.Bold), Brushes.Black, 30, 138) '
            e.Graphics.DrawString(PackArt, New Font("Arial", 12, FontStyle.Bold), Brushes.Black, 30, 165) ' & PageNumber() 'ici on indique le nombre d'impression restante
            PageNumber -= 1 'on retire une impression
            e.HasMorePages = (PageNumber > 0)
        End If
end sub
--
												bfb														<img src="/imgs2

Gerer le bouton "annuler impression" de windows dans un programme vb n

2 réponses

Votre réponse