Fermeture du form apres impressionRésolu

Question

Bonjour,

J'utilise Printdialog et Printdocument et à la fin de l'impression la fenêtre Form se ferme je ne comprends pas pourquoi.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

PrintDialog1.Document = PrintDocument2
        If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDialog1.PrinterSettings = PrintDocument2.PrinterSettings
            Dim new_paper As New PaperSize("", 800, 800)
            new_paper.papername = paperkind.custom
            Dim new_margin As New Margins
            new_margin.Left = 0
            new_margin.Top = 50

With PrintDocument2
                .DefaultPageSettings.PaperSize = new_paper
                .DefaultPageSettings.Margins = new_margin
                .PrinterSettings.DefaultPageSettings.Landscape = False
                .Print()
            End With
        End If

End Sub

Private Sub PrintDocument2_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage

HH = 50
        e.Graphics.DrawString(Listmag.SelectedItems(0).Text, New Drawing.Font("Times new Roman", 20), Brushes.Black, 50, HH)
        HH += 50
        e.Graphics.DrawString("Références", New Drawing.Font("Times new Roman", 10), Brushes.Black, 50, HH)
        e.Graphics.DrawString("Désignations", New Drawing.Font("Times new Roman", 10), Brushes.Black, 150, HH)
        e.Graphics.DrawString("Couleurs", New Drawing.Font("Times new Roman", 10), Brushes.Black, 550, HH)
        e.Graphics.DrawString("QT", New Drawing.Font("Times new Roman", 10), Brushes.Black, 650, HH)
        e.Graphics.DrawString("stockeurs", New Drawing.Font("Times new Roman", 10), Brushes.Black, 700, HH)
        HH += 30

Dim NN As Integer = HH
        e.Graphics.DrawLine(Pens.Black, 50, NN, 750, NN)

For Me.I_counter = I_start To lvcontenuappro.Items.Count - 1

e.Graphics.DrawString(lvcontenuappro.Items(I_counter).SubItems(0).Text, New Drawing.Font("Times new Roman", 10), Brushes.Black, 50, HH) 'ref
            e.Graphics.DrawString(lvcontenuappro.Items(I_counter).SubItems(1).Text, New Drawing.Font("Times new Roman", 10), Brushes.Black, 150, HH) 'desig 
            e.Graphics.DrawString(lvcontenuappro.Items(I_counter).SubItems(2).Text, New Drawing.Font("Times new Roman", 10), Brushes.Black, 550, HH) 'couleur
            e.Graphics.DrawString(lvcontenuappro.Items(I_counter).SubItems(3).Text, New Drawing.Font("Times new Roman", 10), Brushes.Black, 650, HH) ' QT
            e.Graphics.DrawString(lvcontenuappro.Items(I_counter).SubItems(4).Text, New Drawing.Font("Times new Roman", 10), Brushes.Black, 700, HH) 'Stockeurs

HH += 30

Linenumber += 1
            If Linenumber = Lineperpage Then
                Linenumber = 0
                I_start = I_counter + 1
                HH = 50
                e.HasMorePages = True
                Exit For
            End If
        Next

End Sub

trucss · Answer

Pour info le bouton pour imprimer est sur le Form qui se ferme une fois l'impression envoyée.

Pourquoi ?

vb95 · Answer

Bonjour

Quel est le nom de ta Form ?

trucss · Answer

Bonjour,

c'est listmagasin

vb95 · Answer

Bonjour

Il n'y a aucune instruction qui fermerait cette Form : c'est bizarre .

En mettant un point d'arrêt à la ligne 20 ( le "End Sub" de Button1.Click ) et en continuant en pas à pas cela montre-t-il une instruction de fermeture de la Form ?

vb95 · Answer

Et en pas à pas après le End Sub de la ligne 20 as-tu une instruction de fermeture de la Form listmagasin?

vb95 · Answer

En faisant du pas à pas après le End Sub .

Tu poses un point d'arrêt sur le End Sub et tu lances le débogage de ton projet . Il s'arrêtera sur le End Sub . A partir de là tu avances pas à pas avec la touche F11 pour voir si une instruction ferme ta Form .

vb95 · Answer

Alors là je ne sais pas quoi te dire !!!!

vb95 · Answer

Tu peux montrer la ligne de code de ce CloseReason .

A quoi il sert ?

vb95 · Answer

CloseReason est en lecture seule et te donne la raison de la fermeture de la Form

Comme tu vois None signifie que l'on ne sait pas la raison de la fermeture de la Form .

Fermeture du form apres impression

9 réponses

Votre réponse

Discussions similaires