Imprimer avec Visual Basic 2005

Question

Bonjour, Etant Débutant je ne trouve pas de renseignements pour Imprimer la form1 avec tous ses "Label et BoxText..." pour obtenir sur mon imprimante la même chose ou similaire à mon écran et avec mes résultats; avec une mise en page ou autre????? par un Click sur IMPRIMER . Je commence à travailler sur des formulaires et des résulutions mathématiques. Avez-vous une solution en Visual Basic 2005 a me proposer . Ou un document simple traitant ces codes...... Je vous remercie et cela servira peut être à d'autre... Abientot

cs_Willi · Answer

Salut,
Essais cette source
http://www.vb-helper.com/howto_net_print_form_image.html

Utilisateur anonyme · Answer

Salut

Utiliser des api en .net n'est pas tr&#232;s conseiller.

Dim
 FormImg As New System.Drawing.Bitmap(MyBase.Size.Width, MyBase.Size.Height)MyBase
.DrawToBitmap(FormImg, New System.Drawing.Rectangle(0, 0, MyBase.Size.Width, MyBase.Size.Height))

Ca c'est juste pour la r&#233;cup&#233;ration de l'image de ta form, apr&#232;s pour imprimer vois le bout de code que t'as donn&#233; willi ou regarde dans la msdn.

Kenji

<HR width="100%" SIZE=2>



Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Willi · Answer

C'est vrai que j'ai pas regard&#233; le code. Ce n'est pas que c'est d&#233;conseill&#233; d'utiliser certaines fonctions de l'api en .net mais &#224; 90% on peut s'en passer grace &#224; la richesse du framework.

Cr&#233;er un bitmap de ta form comme te montre Kenji et apr&#232;s oui tu peux utiliser le lien que je t'ai fournis.

DEN GILLES · Answer

Bonjour, 
je vous remercie de votre aide.

J'obtiens une page blanche. Mes codes sont ci-dessous, quelle erreur ou manque (c'est dure d'&#234;tre d&#233;butant) merci d'avance .


End 
Sub





Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick


Label60.Text = System.DateTime.Now



End 
Sub



Private 
Declare 
Auto 
Function BitBlt 
Lib 
"gdi32.dll" (
ByVal hdcDest 
As IntPtr, 
ByVal nXDest 
As 
Integer, 
ByVal nWidth 
As 
Integer, 
ByVal nHeight 
As 
Integer, 
ByVal hdcScr 
As IntPtr, 
ByVal nXSrc 
As 
Integer, 
ByVal nYScr 
As 
Integer, 
ByVal dwRop 
As System.Int32) 
As 
Boolean



Private 
Const SRCCOPY 
As 
Integer = &HCC0020



Private 
Declare 
Auto 
Function GetWindowDC 
Lib 
"user32" 
Alias 
"GetWindowDC" (
ByVal hwnd 
As System.IntPtr) 
As System.IntPtr



Private 
Function GetDecoratedFormImage() 
As Bitmap



Dim FormImg 
As 
New System.Drawing.Bitmap(
MyBase.Size.Width, 
MyBase.Size.Height)



MyBase.DrawToBitmap(FormImg, 
New System.Drawing.Rectangle(0, 0, 
MyBase.Size.Width, 
MyBase.Size.Height))



End 
Function

'Variable utilis&#233; en imprim&#233;
Private m_PrintBitmap 
As Bitmap

Private 
WithEvents m_PrintDocument 
As PrintDocument



'Imprime l'image
Private 
Sub PrintDocument1_PrintPage(
ByVal sender 
As System.Object, 
ByVal e 
As System.Drawing.Printing.PrintPageEventArgs) 
Handles PrintDocument1.PrintPage

'Dessiner l'image centr&#233;e
Dim x 
As 
Integer = e.MarginBounds.X + (e.MarginBounds.Width - m_PrintBitmap.Width) \ 2

Dim y 
As 
Integer = e.MarginBounds.Y + (e.MarginBounds.Height - m_PrintBitmap.Height) \ 2e.Graphics.DrawImage(m_PrintBitmap, x, y)



' Seulement sur une page
e.HasMorePages = 
False


End 
Sub



Private 
Sub Button7_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button7.Click



Dim m 
As PrintDocument = 
New PrintDocument



'copier la forme de l'image dans Bitmap


m_PrintBitmap = GetDecoratedFormImage()
m_PrintDocument = 
New PrintDocument
m_PrintDocument.Print()



End 
Sub

Imprimer avec Visual Basic 2005

4 réponses

Discussions similaires