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 24 150 fois - Téléchargée 29 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
- Crystal report pdf
- Php export pdf - Meilleures réponses
- Export crystal report to pdf in vb.net - Meilleures réponses
- URGENT pb generation pdf avec crystal report sous asp.net - Forum - ASP.NET
- Exporter crystal report en pdf ✓ - Forum - VB.NET
- Export un etat crystal report en PDF ✓ - Forum - C# / .NET
- Crystal report pour les nuls pdf - Forum - VB.NET
- Crystal report delphi ✓ - Forum - Delphi / Pascal
crystalreport1.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.WordForWindows, SaveFileDialog1.FileName & ".doc ")
pour les création de pdf: crxf_pdf.dll,crxf_pdf_res_fr.dll,u2dapp.dll,u2DDISK.DLL,u2DMAPI.DLL (mail)
en espérant que ça vous aide...
Votre idées de mettre les indication qui me sont utiles dans l'objet du mail peut être une solution alternative.
Toute fois je reviens sur le fait que mon etat crystal n'est pas un fichier rpt, il est directement contenu dans mon executable je passe par des feuilles .DSR ce qui m'empeiche aussi de changer le nom de mon rapport.
En tout cas je pense que je vais m'orienter soit vers votre solution(objet du mail) soit vers un enregistrement du fichier en pdf et ensuite de sont envoye ce qui devrait me permettre de lui donner le nom que je desire.
exemple :.ExportOptions.MailSubject = "etat crystal datant du "& Now en
.ExportOptions.MailSubject = "La facture d'achat (du) "& Now comme titre du courrier si vous avez besoin d'ajouter un quelconque numéro, vous pouvez passer directement des valeurs à ces variables au niveau de votre report,car outlook n'intervient que pour l'envoi or l'application qui se charge de conversion de format c'est toujours crystal
ensuite, referer vous déjà en amont vous avez passer des instructions pour dire ce qui suit
Set rep = appl.OpenReport("\\chemin\exemple.rpt", 1)
en precisant le chemin d'acces d'un fichier .rpt
et ensuite changer de format à ce stade
.ExportOptions.FormatType = crEFTPortableDocFormat
ce qui fait que l'envoi du courrier se joue sur le nom physique du rpt dont le chemin d'accès est déjà determiner. or par la méthode que vous voulez utiliser cela reviendrait à rénommer le fichier et et pour cela il faudrait trouver un moyen de rediriger le chemin,si ça peut être faisable mais pas avec ce script,
humblement c'est la petite idée que je puis que vous apporter, merci
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.