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

caramel50 11 Messages postés vendredi 16 décembre 2011Date d'inscription 21 juin 2012 Dernière intervention - 16 avril 2012 à 18:40 - Dernière réponse : ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention
- 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
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 16 avril 2012 à 23:15
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.

Merci ehjoe 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

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

Cordialement, Joe.

Merci ehjoe 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de ehjoe
caramel50 11 Messages postés vendredi 16 décembre 2011Date d'inscription 21 juin 2012 Dernière intervention - 17 avril 2012 à 21:19
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.