• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
begin process at 2008 08 22 06:45:12
1 229 780 membres
51 nouveaux aujourd'hui
14 267 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : imprimer un formulaire sous vb.net [ Divers / General ] (jerry6510)

imprimer un formulaire sous vb.net le 06/02/2007 10:35:48

jerry6510
salut a tous !

j'ai un soucis je voudrai savoir comment je peut imprimer mon formulaire ?
merci
Re : imprimer un formulaire sous vb.net le 08/02/2007 20:31:26

fauve
Membre Club
Salut,

voici le code pour imprimer le formulaire en cours :

Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal _   hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _   Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal _   hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, _   ByVal dwRop As System.Int32) As Long

Dim memoryImage As Bitmap

Private Sub CaptureScreen()

   Dim mygraphics As Graphics = Me.CreateGraphics()
   Dim s As Size = Me.Size
   memoryImage = New Bitmap(s.Width, s.Height, mygraphics)
   Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
   Dim dc1 As IntPtr = mygraphics.GetHdc
   Dim dc2 As IntPtr = memoryGraphics.GetHdc
   BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _
      Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
   mygraphics.ReleaseHdc(dc1)
   memoryGraphics.ReleaseHdc(dc2)

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _   ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _PrintDocument1.PrintPage

   e.Graphics.DrawImage(memoryImage, 0, 0)

End Sub

(Coloration syntaxique automatique par Kenji)

Maintenant tu n'as plus qu'à créer un bouton et créer la procédure pour détecter le clic sur ce bouton :

Private Sub Button_Click

End Sub

et de rajouter ces 2 lignes de code à l'intérieur de cette procédure

   CaptureScreen()
   PrintDocument1.Print()

Veuillez accepter la réponse si elle a réglé votre problème

Classé sous : net, vb, formulaire, imprimer

Participer à cet échange

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
ameliorer sous Mac la ...
Budget : 200€
extraction dinformatio...
Budget : 300€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
ASP-PHP.NET forum informatique Colocation dans toute la France ASP MAGAZINE TechHeadBrothers.com Dotnet-News.com


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
VBFrance.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,3125-4sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.