none
mostrar solo la primera pagina de un reporte convertido en pdf RRS feed

  • Pregunta

  • que tal espero puedan ayudarme. utilizo este pequeño codigo para convertir reportes en pdf y guardarlos en mi PC, la cuestion es que esto me convierte a pdf todas las paginas que muestra el reporte y yo solo quisiera convertir páginas específicas, solo la primera por ejemplo. que puedo hacer?

    Dim directorio As String = "c:\documentos\" & TxtNombredocumento.text & ".pdf"
            FrmReportes.MiReporte1.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
            FrmReportes.MiReporte1.ExportToDisk(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat, directorio)
            Process.Start("c:\documentos\" & TxtNombredocumento.text & ".pdf")
    
    gracias.

    jueves, 8 de diciembre de 2011 16:48

Todas las respuestas

  • Hola, puedes utilizar lo siguiente:

    Dim directorio As String = "c:\documentos\" & TxtNombredocumento.text & ".pdf"
    
    Dim myExportOpts As New ExportOptions
    myExportOpts.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
    
    Dim myExportFormatOptions As EditableRTFExportFormatOptions = _
    ExportOptions.CreateEditableRTFExportFormatOptions()
    myExportFormatOptions.FirstPageNumber = 1
    myExportFormatOptions.LastPageNumber = 1
    myExportFormatOptions.UsePageRange = True
    myExportOpts.ExportFormatOptions = myExportFormatOptions
    
    FrmReportes.MiReporte1.Export(myExportOpts)
    
    FrmReportes.MiReporte1.ExportToDisk(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat, directorio)
    Process.Start(directorio)
    
    

     Lo extraje de la documentación de Microsoft sobre ExportOptions.

    espero que te sirva.

    un saludo.

    jueves, 8 de diciembre de 2011 23:28
  • me marca error en las siguientes partes:

    EditableRTFExportFormatOptions = ExportOptions.CreateEditableRTFExportFormatOptions()

     

     

    dice que el tipo EditableRTFExportFormatOptions no esta definido, debo poner algun espacio de nombres ademas del "CrystalDecisions.Shared"??

    viernes, 9 de diciembre de 2011 17:28
  • Hice una prueba con Visual Studio 2008 y efectivamente me da el mismo error. La página de Microsoft seguramente haga referencia a una versión anterior de Crystal Reports. Con algún Service Pack del Visual Studio cambiarían la versión.

    prueba lo siguiente:

            Dim myExportOpts As New ExportOptions
            myExportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
            Dim myExportFormatOptions As PdfRtfWordFormatOptions
            myExportFormatOptions.FirstPageNumber = 1
            myExportFormatOptions.LastPageNumber = 1
            myExportFormatOptions.UsePageRange = True
    
            myExportOpts.ExportFormatOptions = myExportFormatOptions
            reportDocument.Export(myExportOpts)
    
    

    No sé si te funcionará. Importe el espacio de nombres CrystalDecisions.Shared.

    un saludo.

    sábado, 10 de diciembre de 2011 21:40