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
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.