Imprimer un DataGrid

Version imprimable

17/04/2007, 09h04
Butof

Imprimer un DataGrid
Bonjour,

Je voudrais imprimer un datagrid sans cadre, j'utilise la fonction:
Code:

1 2 3 4 p.SetDocument(Me.DataGridView1) If p.Imprime(True) <> 0 Then MsgBox("Impossible d'imprimer, verifiez qu'une imprimante est installée !") End If
Le probleme c'est que cela m'imprime le cadre de mon DataGrid, comme un imprime écran. J'ai le meme probleme pour un GroupBox. Et quand ma GroupBox est trop grande par rapport a mon écran, j'imprime ma barre des taches....:bug: .

Merci de bien vouloir m'aider
17/04/2007, 14h30
zazaraignée

Ce serait plus judicieux de boucler sur les données et de les imprimer une à une en utilisant l'objet printer comme un surface sur laquelle tu écrit les données à des endroits précis, en utilisant ScaleX et ScaleY.

Sinon, tu utilises un PictureBox comme une fenêtre d'aperçu, sur laquelle tu Print (la méthode) les données. Tu envoies ensuite le contenu du PictureBox à l'imprimante (je crois que PaintPicture... mais ça reste à tester).
17/04/2007, 23h10
Butof

merci de ton aide, je vais essayer. Ta solution avec le placement en x et y n'est pas evidente a faire (et relou ^^) car j'ai pas mal de variable mais si ca marche je vais l'adopter.
18/04/2007, 09h09
Butof

L'objet printer tu le sort d'ou stp?

J'utilise Microsoft Visual Studio 2005. Je me suis peut etre trompé d'endroit:oops:
18/04/2007, 09h22
BM42

Salut

Exact, tu t'est trompé de Forum.
En ce qui concerne ton problème, je ne peut pas t'aider car je ne connais pas encors .net

A+
18/04/2007, 09h43
Butof

Ce n'est pas du .net ce logiciel et mon code non plus
18/04/2007, 10h01
Delbeke

Si tu utilises Microsoft Visual Studio 2005, c'est de la technologie .Net
Et tu n'es pas dans le bon forum
18/04/2007, 10h20
Butof

Merci,

je vais arreter ce topic alors.

Juste une petite question, pk il y a alors un logiciel Visual Studio.net et un autre Visual Sudio? Pk faire 2 logiciels sur le meme langage?
18/04/2007, 17h20
Delbeke

Question a poser au service marquetting de M.MicroSoft :lol:

Mon topic est redirigé automatiquement, c'est sympa. :king:

Je relance donc celui ci, mon probleme est toujours le meme(enfin presque), quand ma group box (ou DataGrid) est trop grande (dépasse de mon ecran), lors de l'impression, j'ai la barre des taches qui apparait en bas de ma feuillle (ou au milieu, ca depend de l'emplacement de ma group box).
Est il possible de corriger cela avec mon code ou faut il que je change mon code d'impression ?

Voila mon code (ma fonction d'appel est en debut de sujet):

Code:

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
Public Class ClassImpression
    Inherits PrintDocument
 
    Private buffer As Bitmap
 
    Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As IntPtr, ByVal X As Integer, _
            ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, _
            ByVal hSrcDC As IntPtr, ByVal xSrc As Integer, ByVal ySrc As Integer, _
            ByVal nSrcWidth As Integer, ByVal nSrcHeight As Integer, ByVal dwRop As Integer) As Integer
 
    Public Sub SetDocument(ByVal c As Control)
 
        Dim controlGraphics As Graphics = c.CreateGraphics   ' graphique form
        Const SRCCOPY As Integer = &HCC0020
 
        '*** DEFINITION DE L'IMAGE
 
        Dim controlSize As Size
        controlSize = c.ClientSize()
        buffer = New Bitmap(controlSize.Width, controlSize.Height)
        Dim bufferGraphics As Graphics = controlGraphics.FromImage(buffer)
 
        Dim bufferHdc As IntPtr = bufferGraphics.GetHdc   'hdc de la form
        Dim controlHdc As IntPtr = controlGraphics.GetHdc
 
        '*** DESSINE LE FORMULAIRE DANS LA PICTURE
        StretchBlt(bufferHdc, 0, 0, controlSize.Width, controlSize.Height, _
                controlHdc, 0, 0, controlSize.Width, controlSize.Height, SRCCOPY)
 
        bufferGraphics.ReleaseHdc(bufferHdc)
        controlGraphics.ReleaseHdc(controlHdc)
 
    End Sub
 
    Public Function Imprime(Optional ByVal dialog As Boolean = False, Optional ByVal preview As Boolean = False) As Long
 
        Imprime = 0
        If Not (Me.PrinterSettings.InstalledPrinters.Count > 0) Then
            Imprime = -1
            Exit Function
        End If
 
        If dialog Then
            Dim printDialog As New PrintDialog()
            printDialog.Document = Me
            If printDialog.ShowDialog <> DialogResult.OK Then
                Exit Function
            End If
        End If
 
        If preview Then
            Dim printPreview As New PrintPreviewDialog()
            printPreview.Document = Me
            printPreview.ShowDialog()
        Else
            Me.Print()
        End If
 
    End Function
 
    Protected Overrides Sub OnPrintPage(ByVal e As System.Drawing.Printing.PrintPageEventArgs)
 
        e.Graphics.DrawImage(buffer, 0, 0)
        e.HasMorePages = False
 
    End Sub
End Class

C'est un imprime ecran qui se produit c'est pour ca que la barre des taches apparait. Je peux reduire ma groupBox mais il me faut imprimer sur une feuille A4, c'est possible d'agrandir l'imprim écran?

Sinon mon autre question, c'est le cadre de ma group Box qui apparait tjs (a cause de l'imprim écran encore une fois), c'est possible de l'enlever? :aie: .

Merci de bien vouloi m'aider.