Export d'un etat crystal en fichier pdf puis envoie par mail de ce fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 281 fois - Téléchargée 28 fois

Contenu du snippet

Ce code permet de passer des paramètres à un état crystal report puis de l'exporter en fichier pdf. Enfin il envoie ce fichier par email et tout ca en une vingtaine de ligne de code seulement.

Source / Exemple :


Private Sub Form_Load()

Dim details As Integer
Dim debut As Date
Dim fin As Date
Dim destinatiare As Variant

'adresse du destinatire
destinataire = "moi@moi.fr"

'variables qui serviront de paramètre dans crystal
fin = LastDayOfMonth(Now) & "/" & Month(Now) & "/" & Year(Now)
debut = FirstDayOfMonth(Now) & "/" & Month(Now) & "/" & Year(Now)
details = 1

Dim appl As New CRAXDRT.Application
Dim rep As New CRAXDRT.Report
Set rep = appl.OpenReport("\\chemin\exemple.rpt", 1)

With rep
    'paramètres
    .ParameterFields.GetItemByName("datedeb").AddCurrentValue debut
    .ParameterFields.GetItemByName("datefin").AddCurrentValue fin
    .ParameterFields.GetItemByName("details").AddCurrentValue details

    'exporter dans exemple.pdf
  ' .ExportOptions.DestinationType = crEDTDiskFilegtef
    .ExportOptions.DestinationType = crEDTDiskFile
    .ExportOptions.DiskFileName = "c:\exemple.pdf"
    .ExportOptions.FormatType = crEFTPortableDocFormat
    
    'envoie du mail
    .ExportOptions.DestinationType = crEDTEMailMAPI
    .ExportOptions.MailSubject = "etat crystal datant du "& Now
    .ExportOptions.MailToList = destinataire

    .Export False
End With
 
End
 
End Sub

A voir également

Ajouter un commentaire

Commentaires

psnnomen
Messages postés
2
Date d'inscription
mardi 20 janvier 2004
Statut
Membre
Dernière intervention
23 février 2004
-
A partir de quel version de crystal, cela fonctionne -t'il?
Et quel composant faut-il ajouter dans le projet?
Merci !
rykowan
Messages postés
3
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2005
-
Ici ca fonctionne avec la version 8.5 mais ca devrait marcher avec les autres versions
Kaiserben
Messages postés
3
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juillet 2004
-
T'as repondu qu'a la 1ere partie de la question du collegue. Quid de la 2e ?
Quel .dll ou .ocx doit être ajoutés pour que l'exportation marche ? ça correspondant a quel composant VB ?
Merci.
cs_sefiani
Messages postés
1
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
16 juin 2004
-
j'ai la version 8.0 de crystal + vb6 mais ce ne marche pas.
j'ai inseré l'OCX de crystal dans le projet mais il me sort une erreur sur les ligne :
Dim appl As New CRAXDRT.Application
Dim rep As New CRAXDRT.Report

merci pour votre aide
rykowan
Messages postés
3
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2005
-
Slt,
je ne sais po trop ce qu'il ne va po mais essai d'ajouter toute les références concernant crystal report dans projet > références. Il t'en manque une.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.