Discussion :

[Jacquelis]

Bonjour,

J'ai créer une petit programme qui tient dans une seule page (form1) et j'aimerai imprimer cette page telle-quelle. Celle-ci contient aussi bien du texte que des images. J'ai bien vu des exemples de code mais ils ne s'adresse que pour visual basic 2005 et moi, j'utilise visual basic 2010 express.

Merci de votre aide

Jacqueslis

[Pol63]

tout ce qui fonctionne sur vb2003 fonctionne encore sur vb2010
il y a une compatibilité ascendante depuis 2003 sur 2005 2008 et 2010

de plus sur la même page que ton topic il y a un topic "imprimer form vb.net"

[Ehjoe]

Bonjour,

J'ai créer une petit programme qui tient dans une seule page (form1) et j'aimerai imprimer cette page telle-quelle. Celle-ci contient aussi bien du texte que des images. J'ai bien vu des exemples de code mais ils ne s'adresse que pour visual basic 2005 et moi, j'utilise visual basic 2010 express.

Merci de votre aide

Jacqueslis

Bonjour,

Voici le code vbnet2010, il faut rajouter les objets que l'éditeur signalera comme manquants et affiner les paramètres si besoin, il y a même la prévisualisation pour éviter de bouffer du papier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
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

[2h15Crew]

Bonsoir,

Désolé de "déterrer" un sujet vieux d'un mois mais j'aurai besoin d'un éclaircissement.

Ehjoe, est-il possible de reprendre ton code pour n'imprimer qu'une partie du form ? Si oui, alors quelles valeurs dois-je remplacer par les coordonnées que je souhaite ?

[Ehjoe]

Bonsoir,

Désolé de "déterrer" un sujet vieux d'un mois mais j'aurai besoin d'un éclaircissement.

Ehjoe, est-il possible de reprendre ton code pour n'imprimer qu'une partie du form ? Si oui, alors quelles valeurs dois-je remplacer par les coordonnées que je souhaite ?

Bonjour,

Le plus simple est de masquer les objets que tu ne veux pas imprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
objet.visible=false

Puis de lancer l'impression tout simplement, puis tu les réaffiches évidemment.

Est-ce que ceci t'irait ?

Cordialement

[2h15Crew]

En fait, je suis en stage dans une entreprise et le superviseur voudrait pouvoir imprimer un rapport propre. Je ne pense pas que le fait d'avoir le form sur la page imprimée l'enchante vraiment...

[Pol63]

pour imprimer un rapport propre ca peut se faire à l'ancienne ou avec des composant de rapport comme crystal report

je n'ai jamais essayé crystal report, mais il n'a pas une super réputation à priori

sinon pour imprimer à la main, ca se fait comme un dessin, on a un objet graphics et on lui dit se qu'on veut avec les coordonées
pour ca voir l'objet printdocument et son évènement print dans lequel tu peux récupérer la taille en pixels d'une page et utiliser le graphics fournit dans le paramètre e

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
e.graphics.drawstring(x,y,texte as string, font etc...) ' on peut aussi dire qu'on veut centrer dans un rectangle
e.graphics.drawline
e.graphics.drawrectangle 
'etc...