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

Messages postés
11
Date d'inscription
vendredi 16 décembre 2011
Dernière intervention
21 juin 2012
- - Dernière réponse : ehjoe
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Dernière intervention
30 mars 2014
- 17 avril 2012 à 21:25
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Dernière intervention
30 mars 2014
3
Merci
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.

Dire « Merci » 3

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

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de ehjoe
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Dernière intervention
30 mars 2014
3
Merci
Heu, attention, certaines commande sont inutiles, comme le zoom sans doute, il faut faire un petit nettoyage

Cordialement, Joe.

Dire « Merci » 3

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

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de ehjoe
Messages postés
11
Date d'inscription
vendredi 16 décembre 2011
Dernière intervention
21 juin 2012
0
Merci
Bonjour ehjoe ,
Merci de ta réponse claire et nette , je vais l'essayer de ce pas !
Bonne journée !
caramel50
Commenter la réponse de caramel50

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.