Imprimer une tabpage et groupboxRésolu

Question

Bonjour,

Vous êtes mon dernier secours, je souhaite imprimer une tabpage et un groupbox, le hic c'est que dans ma fenêtre de prévisualisation, j'ai une page vierge.

Voici mon code:

 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
 End Sub

 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
   ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
   PrintDocument1.PrintPage
        Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New  _
           Point(0, 0), Me.Size))
        Me.InvokePaint(GroupBox4, myPaintArgs)
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub


Je ne comprend pas, pour moi il suffisait de changer le "texte en vert" ?!

Merci

Portos67 · Answer

J'ai trouvé, et ça marche pour TOUT les controls..... voici la solution

 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub


 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
   ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
   PrintDocument1.PrintPage
        
        Dim Bmp As New Bitmap(TabPage1.Width, TabPage1.Height)
        TabPage1.DrawToBitmap(Bmp, New Rectangle(0, 0, Bmp.Width, Bmp.Height))
        e.Graphics.DrawImage(Bmp, 0, 10, TabPage1.Width, TabPage1.Height)

    End Sub

Imprimer une tabpage et groupbox

1 réponse

Votre réponse

Discussions similaires