Salvare Form su un file .JPG

[ZumbaMan]

Ciao a tutti

Ho un Programma con un solo Form su cui vi sono parecchie Label, TextBox, CommandBoutton ed anche una DataGrid, oltre OptionButton ed altri comandi.

Siccome i dati restituiti sono parecchi e a suo tempo non avevo previsto un report di stampa, avevo preferito stampare il Form con PrintForm. Ora ho la necessità di inviare per mail detti dati quindi il form così come mi esce da PrintForm, mi servirebbe avere un file tipo .jpg.

Per ora l'operatore stampa su carta ed invia per fax la stampa. Non posso utilzzare il tasto Stamp della tastiera perchè abilita un altro programma in uso. Vorrei avere un CommandBoutton sulla form che mi crei un file tipo .JPG csì come faccio ora per PrintForm.

Fra le varie soluzioni trovate, sul web ho trovato questo codice ma non riesco a farlo funzionare:

    Private Sub saveImgForm(ByVal frm As Form)
        VBitmap = Bitmap(Form100.Width, Form100.Height)
        Dim formImg As New      'Bitmap(Form100.Width, Form100.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(formImg)
        g.CopyFromScreen(frm.Location, New Point(0, 0), frm.Size)
        formImg.Save(String.Format("C:\prova\{0}.bmp", frm.Text.ToString))
        'formImg.Save("C:\prova\form.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        g.Dispose()
    End Sub
    Private Sub saveImgScreen()
        Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenImg As New Bitmap(screenSize.Width, screenSize.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenImg)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
        screenImg.Save ("C:\prova\screen2.bmp")
        'screenImg.Save("C:\prova\screen2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        g.Dispose()
    End Sub

Grazie a tutti per il vostro aiuto