Quelqu'un peut il m'aider?
Dim crt As New ReportDocument Dim DS As DataSet : If Session("Etats") Is Nothing Then Exit Sub : If Session("Etats") Is Nothing Then Exit Sub DS = DB.GetDataSet(Session("Etats").ToString) crt.Load("" & Session("Eta").ToString & "\CodeBarreEssai.rpt") crt.SetDataSource(DS.Tables(0)) '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Dim oStream As System.IO.MemoryStream Dim extention_ficher As String = "" oStream = CType(crt.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat) _ , System.IO.MemoryStream) extention_ficher = ".pdf" crt.Close() crt.Dispose() crt = Nothing Dim nom_fichier As String = "Facture" & extention_ficher System.IO.File.WriteAllBytes(Session("Adresse").ToString, oStream.ToArray) Response.TransmitFile(Session("Adresse").ToString) Response.ContentType = "application/pdf" Response.AddHeader("content-length", CStr(UBound(oStream.ToArray) - LBound(oStream.ToArray) + 1)) Response.AddHeader("content-disposition", "attachment; filename=" & nom_fichier) Response.BinaryWrite(oStream.ToArray) Session("recherche") = "" Session("Etats") = "" Session("Facture") = "" DS.Clear()
20 déc. 2014 à 12:29
20 déc. 2014 à 12:40