Je voudrais imprimer un datagrid ou je veux sur ma page.
J'ai recuperer ce code qui marche bien pour l'impression
mais pas pour le positionnement :
Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles PrintGrid.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
Point(0, 0), Me.Size))
Me.InvokePaint(DataGrid1, myPaintArgs)
End SubEn changeant les coordonnees du point, rien ne se passe.La grille
s'imprime toujours en haut a gauche.Comment faire??merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut bjo ! :O)
Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle(New Point(0, 0), Me.Size))
As-tu essayé de modifier la position/taille du Rectangle ? '*** Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle( _ New Point(50, 50), _ New Size(Me.Size.Width - 100, Me.Size.Height - 100))) '***
-- Cordialement Yanick MVP pour Visual Basic
Salut bjo ! :O)
Dim myPaintArgs As New PaintEventArgs( _
e.Graphics, _
New Rectangle(New Point(0, 0), Me.Size))
As-tu essayé de modifier la position/taille du Rectangle ?
'***
Dim myPaintArgs As New PaintEventArgs( _
e.Graphics, _
New Rectangle( _
New Point(50, 50), _
New Size(Me.Size.Width - 100, Me.Size.Height - 100)))
'***
Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle(New Point(0, 0), Me.Size))
As-tu essayé de modifier la position/taille du Rectangle ? '*** Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle( _ New Point(50, 50), _ New Size(Me.Size.Width - 100, Me.Size.Height - 100))) '***
-- Cordialement Yanick MVP pour Visual Basic
bjo
Oui j'avais meme testé en declarant moi meme un rectangle. Pour ceux que ca interesse j'y suis parvenu mais avec la vs2005 beta express le composant datagrid etant amelioré (dispose maintenant d'une methode drawtobitmap qui permet de recuperer le dessin de la grille)
merci et @+
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:%
Salut bjo ! :O)
>>> Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle(New Point(0, 0), Me.Size)) >>>
As-tu essayé de modifier la position/taille du Rectangle ? '*** Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle( _ New Point(50, 50), _ New Size(Me.Size.Width - 100, Me.Size.Height - 100))) '***
-- Cordialement Yanick MVP pour Visual Basic
Oui j'avais meme testé en declarant moi meme un rectangle.
Pour ceux que ca interesse j'y suis parvenu mais avec la vs2005 beta express
le composant datagrid etant amelioré (dispose maintenant d'une methode
drawtobitmap
qui permet de recuperer le dessin de la grille)
merci et @+
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:%23SqC6lxhFHA.3012@TK2MSFTNGP12.phx.gbl...
Salut bjo ! :O)
>>>
Dim myPaintArgs As New PaintEventArgs( _
e.Graphics, _
New Rectangle(New Point(0, 0), Me.Size))
>>>
As-tu essayé de modifier la position/taille du Rectangle ?
'***
Dim myPaintArgs As New PaintEventArgs( _
e.Graphics, _
New Rectangle( _
New Point(50, 50), _
New Size(Me.Size.Width - 100, Me.Size.Height - 100)))
'***
Oui j'avais meme testé en declarant moi meme un rectangle. Pour ceux que ca interesse j'y suis parvenu mais avec la vs2005 beta express le composant datagrid etant amelioré (dispose maintenant d'une methode drawtobitmap qui permet de recuperer le dessin de la grille)
merci et @+
"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de news:%
Salut bjo ! :O)
>>> Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle(New Point(0, 0), Me.Size)) >>>
As-tu essayé de modifier la position/taille du Rectangle ? '*** Dim myPaintArgs As New PaintEventArgs( _ e.Graphics, _ New Rectangle( _ New Point(50, 50), _ New Size(Me.Size.Width - 100, Me.Size.Height - 100))) '***
