kotor2000
Messages postés4Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 6 juillet 2007
-
5 juin 2007 à 14:35
kotor2000
Messages postés4Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 6 juillet 2007
-
5 juin 2007 à 15:04
Bonjour,
je developpe une application web en VB.net 2005 qui permet de créer des rapports crystal de façon dynamique. J'utilise la version built-in de Crystal Report et lorsqu'on veut imprimer le rapport, Crystal report pop une fenêtre(très laide soit dit en passant) me demandant les pages à imprimer avant d'exporter le fichier en pdf et ouvre adobe pour que l'utilisateur effectue l'impression du pdf.
J'ai donc décidé d'exporter moi-même le rapport vers C:\WINDOWS\Temp et rediriger l'utilisateur vers ce fichier. J'ai utilisé le code suivant :
Protected
Sub Page_Load(
ByVal sender
As
Object,
ByVal e
As System.EventArgs)
Handles
Me.Load
Dim dfdoCustomers
As
New _CrystalDecisions.Shared.DiskFileDestinationOptions()
Dim szFileName
As
String = (
"C:\WINDOWS\Temp\Rapport2.pdf")dfdoCustomers.DiskFileName = szFileName
With RemplirDataSet() '// Function retournant un objet de type report document.ExportOptions.ExportDestinationType = _
CrystalDecisions.Shared.ExportDestinationType.DiskFile
.ExportOptions.ExportFormatType = _
CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
.ExportOptions.DestinationOptions = dfdoCustomers
.Export()
End
WithResponse.Redirect(szFileName)
End
Sud
Je suis redirigé vers la page d'erreur(peu utile) "Impossible de trouver le serveur ou erreur DNS".
Le Rapport.pdf ce retrouve bien à l'emplacement désiré.
Immédiatement j'ai pensé à un problème de droits, mais tous les utilisateurs possibles ont les droits nécessaires sur le dossir et je ne trouve aucun usager ASPNET à ajouter.
Tout aide sera appréciée, merci
Kotor2000
kotor2000
Messages postés4Date d'inscriptionjeudi 5 avril 2007StatutMembreDernière intervention 6 juillet 2007 5 juin 2007 à 15:04
Jai trouvé
c un peu différent mais ca fait la meme chose
Dim dfdoCustomers
As
New _CrystalDecisions.Shared.DiskFileDestinationOptions()
Dim szFileName
As
String = Server.MapPath(
"~\exports" & Session.SessionID.ToString &
".pdf")dfdoCustomers.DiskFileName = szFileName
With RemplirDataSet().ExportOptions.ExportDestinationType = _
CrystalDecisions.Shared.ExportDestinationType.DiskFile
.ExportOptions.ExportFormatType = _
CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
.ExportOptions.DestinationOptions = dfdoCustomers
.Export()
End
With
'Response.Redirect(szFileName)Response.ClearContent()
Response.ClearHeaders()
Response.ContentType =
"application/pdf"Response.WriteFile(szFileName)
Response.Flush()
Response.Close()
'delete the exported file from diskSystem.IO.File.Delete(szFileName)