Discussion :

[unformatdj]

Bonjour

1) En fait depuis ce matin , j'ai le probleme suivant à chaque que j'imprime mon formulaire , je vois le menu qui est visible sur la page imprimé => génant

Alors que je veut imprimer juste la feuille et son contenu.

2) et je voudrais masquer le bouton imprimé, car on le voit aussi sur la feuille finale

Voici mon code :

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
Public Class Form3
    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
        Me.Size = New Size(800, 1000)
        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)
        PictureBox1.Image = memoryImage
 
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          CaptureScreen()
        PrintDocument1.Print()
         Me.Close()
 
 
    End Sub

Alors qu'est ce qui cloche ?

[unformatdj]

Pour etre un peu plus claire ,

je voudrais imprimé mon formulaire sans la capturescreen ( pas de capture d'ecran car cela fait une capture de tout l'ecran meme avec la barre d'en bas là ou il y a les fenetres et doc ouvert )

donc j voudrais imprimé mon formulaire sans ca , juste le contenu du formulaire comme une feuille de format A4 (càd que le contenu du form occupe tout une page de taille A4)