cs_boumbo73
Messages postés107Date d'inscriptionlundi 25 octobre 2004StatutMembreDernière intervention16 décembre 2010
-
12 avril 2005 à 11:11
cs_boumbo73
Messages postés107Date d'inscriptionlundi 25 octobre 2004StatutMembreDernière intervention16 décembre 2010
-
20 avril 2005 à 15:36
Bonjour !
Voila j'aimerais générer un fichier pdf mais je n'ai pas la moindre idée de comment faire ! J'ai des informations concernant un client (nom, prenom, ..;). Et je ne veux pas passer par un crystal report mais plutot écrire du code qui me créera le document pdf.
Et dans l'aide vb net il n'y a rien !
Je vous remercie par avance pour votre aide !
cs_boumbo73
Messages postés107Date d'inscriptionlundi 25 octobre 2004StatutMembreDernière intervention16 décembre 2010 12 avril 2005 à 15:01
Merci pour ces réponses !
Alors en faites j'ai réussi en utilisant l'état que j'ai crée via crystal report. J'arrive à le charger et à l'enregistrer en pdf .
L'imprimante virtuelle ne pouvait pas me convenir car je devais créer ce document pdf pour le joindre à un mail sans que l'utilisateur ne fasse aucune manip !
cs_boumbo73
Messages postés107Date d'inscriptionlundi 25 octobre 2004StatutMembreDernière intervention16 décembre 2010 13 avril 2005 à 09:57
Voici le code :
Public Sub CreerEtat(ByVal unParametre As Integer)
' Définir les variables Crystal Reports
Dim Etat As ReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim Fichier As String
Dim tb As Table
Dim Para As New ParameterDiscreteValue
Dim paraCollection As New ParameterValues
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo 'objet pour connexion aux tables
Dim Req As String
Dim rsVa As JE
Dim valide As String
Fichier = Application.StartupPath & unParametre & ".pdf"
crDiskFileDestinationOptions = New DiskFileDestinationOptions
crDiskFileDestinationOptions.DiskFileName = Fname
crExportOptions = Etat.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
For Each tb In Etat.Database.Tables
tliCurrent = tb.LogOnInfo 'creation de l'objet pour se connecter à la table
With tliCurrent.ConnectionInfo
.ServerName = source
.UserID = 'lutilisateur
.Password = le mot de passe
.DatabaseName = source
End With
tb.ApplyLogOnInfo(tliCurrent)
Next
Etat.Export()
End Sub
J'espère que ca focntionnera sinon n'hésites pas à me faire signe si quelque chose n'est pas compris dans le code !
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 18 avril 2005 à 14:11
Mon second post, c'était juste pour corriger le fait qu'avec une imprimante virtuelle tu peux tout faire sans que l'utilisateur ne s'en rendre compte. Et puis cela permet aussi de générer autre chose que du PDF : Du Tiff, du PNG, etc ...
Christophe R
karrouma_14
Messages postés10Date d'inscriptionmercredi 6 avril 2005StatutMembreDernière intervention 8 juillet 2006 19 avril 2005 à 17:54
Salut,
j'ai essayé avec le code que vous m'avez envoyé mais ça n'a pas marché.
Je travaille dans une application windows et non pas web si vous pouvez m'aidez.
un message d'erreurs se déclenche" l'opération n'est pas encore disponible"
merci d'avance
karrouma_14
Messages postés10Date d'inscriptionmercredi 6 avril 2005StatutMembreDernière intervention 8 juillet 2006 20 avril 2005 à 09:33
Bonjour,
merci de me répondre, à propos les états ils s'executent normalement.
je ne sais pas ou est le problème. d'ailleurs ce code fonctionne dans une application web mais je doute qu'il ya des différences dans l'application windows.