Discussion :

[dominux80]

Bonjour,

Je sais que les impressions sous VB sont déjà particulières, mais comment imprimer l'équivalent de tout un datagrid.

Merci a tous

[OhMonBato]

Voila 3 questions en peu de temps sans la moindre ligne de code de ta part. Cherche un peu, Google ou le bouton "Rechercher" de ce forum sont là pour ça (la FAQ ou les tutos VB6 de ce site aussi)
Si ensuite tu as une difficulté pour mettre en pratique un code particulier nous essaierons de t'aider avec plaisir.

[dominux80]

Je recherche vainement comment imprimer le contenu d'un datagrid de stats

J'ai essayé un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
message = "Souhaitez vous imprimer ces stats ?"
    If MsgBox(message, vbOKCancel, "Stats") = vbOK Then
        Dim X As Long
        Dim titre As String
        Dim titre1 As String
        titre = "STATS"
        titre1 = ""
        X = PrintGrid(Datagrid2, titre, titre1, False, 1)
    End If

J'arrive juste a faire une impression en print.form

[dominux80]

bonjour a tous,

Je vais essayer de me tourner vers crystal report.
quelqu'un aurait-il un lien qui explique comment marche crystal report sous vb 6

merci a tous

[Delbeke]

Une simple utilisation de la fonction recherche de DVP t'aurais donné ceci
http://www.developpez.net/forums/sho...crystal+report

[dominux80]

Merci de ta réponse Delbeke, j'avais regardé ce lien et avait trouvé un lien qui pointait sur suppinfo malheureusement le site ne répondait pas hier.

Je cherche une solution mais je m'égare un peu partout.

Je voudrais imprimer un datagrid, apparement j'ai regardé, ai regardé dans le MSN mais pas trouvé.

Faut-il que je passe par un datareport, crystalreport ou est-ce faisable sans, j'ai bien trouvé pour un flexgrid, mais pas un datagrid et ça me gêne de repasser en flexgrid mais s'il faut je serai bien obligé.

Merci de vos réponses

[dominux80]

Bonjour,

Il faut prendre le composant MSHFlexGrid qui est équivalent pour mon action a un datagrid et beaucoup mieux qu'un flexgrid avec comme code pour l'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
    Printer.Orientation = 1
    Printer.PaintPicture MSHFlexGrid1.Picture, 0, 0
    Printer.EndDoc

voilà et bonne journée