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
- - Dernière réponse : Portos67
Messages postés
72
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
14 janvier 2013
- 24 août 2011 à 02:12
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
Afficher la suite 

1 réponse

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 133 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Portos67