Private Sub Impresion_Informe_EnviarPDF(ByRef Pagina As Page, ByRef informe As ReportDocument, ByVal NombreFicheroPDF As String, Optional ByVal PathPdf As String = "")
Dim exportOpts As New ExportOptions
Dim diskOpts As New DiskFileDestinationOptions
Dim pdfFormatOpts As New PdfRtfWordFormatOptions
exportOpts = informe.ExportOptions
exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
exportOpts.FormatOptions = pdfFormatOpts
exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
Dim path As String = Pagina.Request("APPL_PHYSICAL_PATH") & "Informes\Temporal\Pdfs" & ColetillaDir & "\"
Dim fname As String
fname = path & NombreFicheroPDF
diskOpts.DiskFileName = fname
exportOpts.DestinationOptions = diskOpts
informe.Export()
informe.Close()
End Sub





Mode Lineal
