Impression

Question

Bonjours à tous,

J'ai un petit problème ,je cherche a imprimer tout de la listview alors qu'il y a un ascenceure et j'ai récuperer un code et lui fait une capture d'ecran .
Voici le code :

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.SizememoryImage 

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.GetHdcBitBlt(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

Private

Sub ImprimerToolStripMenuItem_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles ImprimerToolStripMenuItem.ClickCaptureScreen()

PrintDocument1.Print()

PrintDocument1.Dispose()

End
Sub

Merci si vous avez une autre solution voir modifier ce code ne pas hesite....

scromania · Answer

et si possible qu'il imprime automatiquement en paysage
merci

gillardg · Answer

http://www.vbfrance.com/codes/IMPRIMER-DATAGRIDVIEW-AUTRES-CONTROLES_46951.aspx








il y a 10 sortes de gens: ceux qui comprennent le binaire, et les autres

Impression

2 réponses

Votre réponse

Discussions similaires