Hi , I am using below code to export crystal report (asp.net 2003).. It is opening the file in pdf as i want, but my report has 3 pages and in pdf it shows only 2 pages...can anyone help on this. Code: Private Sub Btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Export.Click Try Me.Crystalreportviewer1.ParameterFieldInfo.Clear() If Me.txtSTdate.Text.Trim.Length > 0 Then Dim fs As IO.FileStream Dim FileSize As Long Dim crDataDef As DataDefinition Dim oDest As New CrystalDecisions.Shared.DiskFileDestinationOptions Dim reportName As String = Now.Day.ToString & "_" & Now.Month.ToString() & "_" & Now.Year.ToString() & "_" & Now.Hour.ToString & "_" & Now.Minute.ToString & "_" & Now.Second.ToString() & "_" & Now.Millisecond.ToString() Dim ExportFileName As String = Server.MapPath("/") & ConfigurationSettings.AppSettings("ExportDir") & reportName & ".pdf" crDataDef = crReportDocument.DataDefinition crReportDocument.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile crReportDocument.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat oDest.DiskFileName = ExportFileName crReportDocument.ExportOptions.DestinationOptions = oDest
Dim ParamFields As ParameterFields = Me.Crystalreportviewer1.ParameterFieldInfo Dim Per As New ParameterField Per.ParameterFieldName = "Date" Dim ParamCurrentValues As New ParameterValues Dim Period_Value As New ParameterRangeValue Period_Value.StartValue = Me.txtSTdate.Text Period_Value.EndValue = Me.txtCLdate.Text Per.CurrentValues.Add(Period_Value) ParamFields.Add(Per)
'Set Division Paramter Dim GetDivisionValues As String GetDivisionValues = Trim(Request.Form(ddl_division.UniqueID)) Per = New ParameterField Per.ParameterFieldName = "Division" Dim Division_Value As New ParameterDiscreteValue If GetDivisionValues = "Select All" Then Division_Value.Value = "*" Else Division_Value.Value = GetDivisionValues End If Per.CurrentValues.Add(Division_Value) ParamFields.Add(Per)
crReportDocument.Export() 'Build Target Filename 'Send the file to the user that made the request Response.Clear() Response.Buffer = True Response.AddHeader("Content-Type", "application/pdf") fs = New IO.FileStream(ExportFileName, IO.FileMode.Open) FileSize = fs.Length Dim bBuffer(CInt(FileSize)) As Byte fs.Read(bBuffer, 0, CInt(FileSize)) fs.Close() Response.BinaryWrite(bBuffer) Response.Flush() Response.Close() End If Catch ex As Exception lblError.Text = ex.Message.ToString End Try End Sub
Thanks to help.
------------- Thanks,
Yasin.
|