Discussion :

[botanique]

Bonjour,
je réalise une application où je souhaiterais que l'utilisateur puisse imprimer le listing d'une recherche multicritère, sans passer pas le CrystalViewer.
En cherchant sur le forum, j'ai trouvé le code suivant, pour VB6

Code :

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

crystalreport.destination=crptoprinter

Comment faire sous VB.NET (j'utilise VS2003)?

Merci de votre aide

Botanique

[botanique]

C'est bon, j'ai trouvé comment faire.

Botanique

[L.nico]

C'est bon, j'ai trouvé comment faire.

Botanique

et alors tu fais comment :

[botanique]

Dans mon fourmulaire, je définis un printdocument (PrintDoc) et un reportdocument (Fichier).

A l'événement clique sur le menu imprimer, je lance la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
Public Sub Imprimer()
 
        connexion()
        Fichier.Load("F:\Projet Visual Studio\HERBIER\PrintPlante.rpt")
        Fichier.SetDataSource(DSPrint)
        Me.PrintDoc.Print()
 
    End Sub

Cette procédure va remplir le dataset DSPrint via la procédure appelée (procédure connexion), puis cherger l'état Cristal report dans le reportdocument auquel je précise la sour ce puis je lance l'impression du printdocument, ce qui lance la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub PrintDoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
 
        Fichier.PrintToPrinter(0, False, 0, 0)
 
    End Sub
 
Dans cette procédure, j'indique qu'il faut imprimer sur l'imprimante par défaut le ReportDocument (Fichier)
 
Voilà.
 
Botanique

[L.nico]

pour ces précisions

[botanique]

De rien

Botanique