Imprimer une tabpage et groupbox

Résolu
Messages postés
72
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
14 janvier 2013
-
Messages postés
72
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
14 janvier 2013
-
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

1 réponse

Messages postés
72
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
14 janvier 2013
1
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