none
Exporter en PDF un Form et son contenu RRS feed

  • Question

  • Bonjour j'ai un code qui me permet d'imprimer un Form avec tout son contenu via l'imprimante par défaut de mon PC.

    Je souhaite remplacer la fonction imprimer par soit exporter en pdf ou envoyer pdf par mail (selon se qui est possible).

    Voici mon code de base :

    Imports System
    Imports System.Windows.Forms
    Imports System.Drawing
    Imports System.Drawing.Printing
    
    Public Class Form1
        Inherits Form
        Private WithEvents printDocument1 As New PrintDocument
    
        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)
            memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
        End Sub
    
        Private Sub printDocument1_PrintPage(ByVal sender As System.Object, _
           ByVal e As System.Drawing.Printing.PrintPageEventArgs)
            e.Graphics.DrawImage(memoryImage, 0, 0)
        End Sub
    
        Private Sub printButton_Click(ByVal sender As System.Object, ByVal e As  _
           System.EventArgs) Handles printButton.Click
            CaptureScreen()
            printDocument1.Print()
        End Sub
    
        Public Shared Sub Main()
            Application.Run(New Form1())
        End Sub
    End Class

       

    EndSub

    End

    Class

    dimanche 7 juin 2015 09:52

Réponses