Impression d'une form sous .net avec mise a l'echelle

jermag
Messages postés
2
Date d'inscription
mercredi 22 septembre 2004
Statut
Membre
Dernière intervention
15 avril 2005
- 15 avril 2005 à 10:10
leguigui2bx
Messages postés
23
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
9 mai 2005
- 15 avril 2005 à 16:52
bonjour, je suis débutant en VB.NET, je galere un peu pour imprimer une
form, j'ai mis du temps mais g réussi a le faire, mais je ne sais pas
comment faire pour ajuster le "zoom" sur la page imprimer la form n'en
fait que la moitié.



Si quelqu'un pouvait me filer un coup de main avec les 2 3 ligne de
code pour gerer le zoom ou la mise a l'échelle ca serait sympa;



pour info voila ce que j'utilise pour imprimer:



Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click

PrintButton.Visible = False

CaptureScreen()

PrintDocument1.Print()

PrintButton.Visible = True

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 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

1 réponse

leguigui2bx
Messages postés
23
Date d'inscription
jeudi 9 décembre 2004
Statut
Membre
Dernière intervention
9 mai 2005

15 avril 2005 à 16:52
Salut,
j'avais besoin d'imprimer une form et j'ai utiliser la source a cette addresse , je pense qure tu pourrai peut être t'ens ervir a toi de l'adapter aprés.
adresse :
http://www.vbfrance.com/code.aspx?ID=6517

a +
0