Discussion :

[alexworks]

Bonjour à toutes et tous

Je ne sais pas comment faire pour imprimer mon écran et qu'il contienne dans le page A4.

J'ai créé un form dans lequel il y a des photos des label des textbox
sa taille 1400 x 1000

mais quand je fais :

PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print(Me, PrintForm.PrintOption.FullWindow)

je n'ai qu'un coin de la page.

Mon but c'est quand je clique sur mon bouton imprimer je sorte sur une page l'ecran.

Merci de votre aide

[wallace1]

Bonjour alexworks,

Tu veux imprimer ton écran ou bien la fenêtre active de ton application exactement ? (car ce n'est pas la même chose !)

[alexworks]

l'écran serait bien
la fenêtre active serait le top

[wallace1]

ok pour la capture d'écran. Pour la fenêtre active il faudrait utiliser les fonctions API.

Sinon pour ma part ne connaissant pas la classe d'impression alors je peux te recommander :

- d'utiliser une capture d'écran ainsi tu pourras récupérer une image.
- cette image obtenue pourra être redimensionnée pour tenir dans un format A4

Fonction de capture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function CaptureScreen() as Bitmap
  Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        graph.Dispose()
        Return screenshot
End Sub

Fonction de redimensionnement (qui respecte le ratio) :

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
23
24
25
26
27
28
29
30
31
32
33
34
 
        Public Function GetRatioRedimPicture(ByVal Img As Bitmap, ByVal siz As Size) As Image
            Dim imgOrg As Bitmap
            Dim imgShow As Bitmap
            Dim g As Graphics
            Dim divideBy, divideByH, divideByW As Double
            imgOrg = Img
            divideByW = imgOrg.Width / siz.Width
            divideByH = imgOrg.Height / siz.Height
            If divideByW > 1 Or divideByH > 1 Then
                If divideByW > divideByH Then
                    divideBy = divideByW
                Else
                    divideBy = divideByH
                End If
                imgShow = New Bitmap(CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy))
                imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                g = Graphics.FromImage(imgShow)
                g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(imgOrg, New Rectangle(0, 0, CInt(CDbl(imgOrg.Width) / divideBy), CInt(CDbl(imgOrg.Height) / divideBy)), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                g.Dispose()
            Else
                imgShow = New Bitmap(imgOrg.Width, imgOrg.Height)
                imgShow.SetResolution(imgOrg.HorizontalResolution, imgOrg.VerticalResolution)
                g = Graphics.FromImage(imgShow)
                g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(imgOrg, New Rectangle(0, 0, imgOrg.Width, imgOrg.Height), 0, 0, imgOrg.Width, imgOrg.Height, GraphicsUnit.Pixel)
                g.Dispose()
            End If
            imgOrg.Dispose()
            Return imgShow
        End Function

Comment capturer ton écran et l'enregistrer dans un fichier qui ne dépassera pas les dimensions A4 (21 x 29,7) ou 595 x 842 Pixels :

Code :

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

1
2
 
  GetRatioRedimPicture(CaptureScreen(), New Size(595, 842)).Save("C:\" & New Random().Next.ToString & ".bmp", Imaging.ImageFormat.Bmp)

A+

[alexworks]

Merci beaucoup

l'imprim écran fonctionne a merveille
mais le résultat ne fais pas très propre.

je vais chercher du coté des fonction API que je ne connais pas du tout.

[wallace1]

Ca ne mettra pas longtemps pour te mettre quelques réponses à dispo car le domaine de capture d'écran a déjà fait l'objet d'étude dans un de mes projets

Donc voici grossomodo la capture de la fenêtre active (c'est mis en vrac mais penses à bien séparer les fonction s natives du reste du code, à découper les fonctions ...etc..... :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
    Public Enum Window_State
        SW_SHOWNORMAL = 1
        SW_SHOWMINIMIZED = 2
        SW_SHOWMAXIMIZED = 3
    End Enum
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure WINDOWPLACEMENT
        Public length As Integer
        Public flags As Integer
        Public showCmd As Integer
        Public ptMinPosition As System.Drawing.Point
        Public ptMaxPosition As System.Drawing.Point
        Public rcNormalPosition As System.Drawing.Rectangle
    End Structure
 
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure RECT
        Public left As Integer
        Public top As Integer
        Public right As Integer
        Public bottom As Integer
    End Structure
    <DllImport("user32.dll")> _
    Public Shared Function GetForegroundWindow() As Integer
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function GetDesktopWindow() As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function GetWindowDC(hWnd As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function ReleaseDC(hWnd As IntPtr, hDC As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function GetWindowPlacement(hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Boolean
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function GetWindowRect(hWnd As IntPtr, ByRef rect As RECT) As IntPtr
    End Function
 
 
    Public Function ScreenActivetWindow() As Bitmap
        Dim hWnd As Integer = GetForegroundWindow()
        Dim bounds As New RECT()
        GetWindowRect(CType(hWnd, IntPtr), bounds)
        Dim width As Integer = bounds.right - bounds.left
        Dim height As Integer = bounds.bottom - bounds.top
        Dim wp As New WINDOWPLACEMENT()
        GetWindowPlacement(CType(hWnd, IntPtr), wp)
        Dim x As Integer
        Dim y As Integer
 
        If wp.showCmd = CInt(Window_State.SW_SHOWMAXIMIZED) Then
            x = wp.ptMaxPosition.X
            y = wp.ptMaxPosition.Y
        Else
            x = wp.rcNormalPosition.X
            y = wp.rcNormalPosition.Y
        End If
 
        If (x + width) > Screen.PrimaryScreen.WorkingArea.Width Then
            width = width - ((x + width) - Screen.PrimaryScreen.WorkingArea.Width)
        End If
 
        If (y + height) > Screen.PrimaryScreen.WorkingArea.Height Then
            height = height - ((y + height) - Screen.PrimaryScreen.WorkingArea.Height)
        End If
 
        Dim ScreenBounds As New Rectangle(x, y, width, height)
        Dim Screenshot As New Bitmap(ScreenBounds.Width, ScreenBounds.Height, PixelFormat.Format32bppArgb)
        Dim ScreenGraph As Graphics = Graphics.FromImage(Screenshot)
        ScreenGraph.CopyFromScreen(ScreenBounds.X, ScreenBounds.Y, 0, 0, ScreenBounds.Size, CopyPixelOperation.SourceCopy)
        Return Screenshot
    End Function

A+

[wallace1]

Merci beaucoup

l'imprim écran fonctionne a merveille
mais le résultat ne fais pas très propre.

je vais chercher du coté des fonction API que je ne connais pas du tout.

loool..... avec les fonctions API ca rendra le même résultat car a final tu dois faire une capture.....

Il faut que tu choisisses un autre format d'image non compressé tout simplement donc dans la fonction de capture (dans toute la fonction) il ne faut travailler qu'avec la classe image !
Au final tu enregistres avec un format autre que : png, jpg et bmp (qui sont par défaut des types compressés) ou alors il te faudra choisir le jpeg avec la gestion d'un encoder pour définir la qualité à 100%.

A+

[alexworks]

Voila j'ai mis ce code et sa marche impec

Merci pour votre aide

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click


CaptureScreen()
PrintDocument1.Print()

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

[callo]

Bonjour alexworks,
Pour faciliter la lecture du code, prière utiliser la balise (bouton #) prévu à cet effet.