Discussion :

[maxmarie]

Bonjour a tous,

je cherche a imprimer le contenu d'une page d'un tabcontrol, qui constitue mon programme windows. Plusieurs sous-page de mon tabcontrol permettent d'arriver a une dernière page avec une synthèse dans un textbox et un schémas. Je souhaiterai pouvoir imprimer cette dernière page.

J'ai recherché des informations, nottament ici
http://msdn2.microsoft.com/en-us/lib...intdialog.aspx

mais je n'arrive pas a m'en servir... Je ne suis même pas sûr que ca soit le bon moyen.

Qqu'un peut m'aider ?

[Pol63]

tu fais ton objet.Drawtobitmap et donc tu mets ca dans une variable image
ensuite tu utilises un objet printdocument (system.drawing.printing) et tu lui dit d'imprimer cette image

[floriaan60]

bonjour,

j'arrive à imprimer une page du tabControl mais comment fait on pour imprimer plusieurs page sur le même événement ?

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
 Dim memoryImage1 As Bitmap
    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
 
    Private Sub CaptureScreen1()
        Dim mygraphics1 As Graphics = TabPage1.CreateGraphics()
        Dim s As Size = New Size(992, 600)
        memoryImage1 = New Bitmap(s.Width, s.Height, mygraphics1)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage1)
        Dim dc1 As IntPtr = mygraphics1.GetHdc
        Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _
        Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
        mygraphics1.ReleaseHdc(dc1)
        memoryGraphics.ReleaseHdc(dc2)
    End Sub
 
 
Private Sub btn_Impr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Impr.Click
        CaptureScreen1()
        PrintDocument1.Print()
    End Sub
 
    Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(memoryImage1, 15, 40, 992, 600)
    End Sub

Merci

[Pol63]

tu demandes à chaque tab de se peindre sur une image et printdocument permet de faire newpage pour passer à la page d'après