Imprimer un rectangle défini dans une form ? [Résolu]

Signaler
Messages postés
11
Date d'inscription
vendredi 16 décembre 2011
Statut
Membre
Dernière intervention
21 juin 2012
-
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
-
Bonjour à tous ,
Je voudrais savoir si il est possible d'imprimer un rectangle défini dans la form (comme le nom l'indique ).
Je m'explique :
-Imaginons que j'ai une form , mon utilisateur a déposé des éléments (par exemples une picturebox)dans la form or il ne souhaite pas imprimer la form entière mais seulement le rectangle défini , en grand ,sur une feuille A4 .

Tout ça en image en cliquant ici
j'aimerais aussi que la police , la couleur etc ... soit gardée lors de l'impression ^^
Merci d'avance pour votre compréhension et vos réponses
à bientôt ...
... j’espère

3 réponses

Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
6
Bonjour caramel n°50,

J'ai ceci dans mon pense bête, ça permet d'imprimer la form (moins son bandeau), donc tout doit être invisible sauf ce qui est à imprimer (à la bonne place), durant une fraction de seconde, c'est une méthode comme une autre...

Sub Button1_Click(...
Me.PrintPreviewControl1.Zoom = 0.6
Me.PrintPreviewControl1.Rows = 1
Dim PageSetupDialog As New PageSetupDialog()
PageSetupDialog.Document = PrintDocument1
PageSetupDialog.PageSettings.Landscape = True
Me.PrintPreviewControl1.Document = Me.PrintDocument1
End Sub

Sub Button2_Click(...
Dim PageSetupDialog As New PageSetupDialog()
PageSetupDialog.Document = PrintDocument1
PageSetupDialog.PageSettings.Landscape = True
Me.PrintDocument1.Print()
End Sub

Sub PrintDocument1_PrintPage(...
Dim bmp As New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format32bppArgb)
Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
e.Graphics.DrawImage(bmp, 10, 10)
End Sub


Cordialement, Joe.
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
6
Heu, attention, certaines commande sont inutiles, comme le zoom sans doute, il faut faire un petit nettoyage

Cordialement, Joe.
Messages postés
11
Date d'inscription
vendredi 16 décembre 2011
Statut
Membre
Dernière intervention
21 juin 2012

Bonjour ehjoe ,
Merci de ta réponse claire et nette , je vais l'essayer de ce pas !
Bonne journée !
caramel50